U 004D, 0018,0038, 1980, F980,0000,004F 

U 004F. FF18,003B,19FO,F847,0000,0200 

U 004E. OOOO, 0O3C,3DF0,2C00, OOOO, 00B9 

U 0089, FCC0.003F,01FO,F847,0000«Q300 



B 1 

ZZ-ESOAA-124.0 ; FORKS .MIC C600, 12043 I-stream decode forH-Jan-82 Fiche 2 Frame B1 Seguence 207 

; P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1 '780 Microcode : PCS 01, FPLA OE, WCS124 Page 206 

; FORKS .MIC £600,12043 I-stream decode forks : A-FORK for VAX Instruccions 



7533 .-HERE FOR CLRQ^CJM) 
7534 

7535 04D: ; 

7536 CLRQr RCCT03 KCZER03 
7537 

7538 ;HERE FOR CLRx, x=8, W, L (CLRF=CLRL) 
7539 

7540 04F: ; 

7541 CLR: ALU KCZER03 ,D 0, 

7542 B.FORK 
7543 

7544 ;HERE FOR MOVPSL 
7545 
546 04E: 



;CLRQ/CLRD - MAKE TWO LONGWORDS OF ZERO 



7547 MOVPSL: Q IDCPSL3 

7548 
7549 

7550 WRQ.DST:D Q, 

7551 WRITE.DEST,J/WRD 



SETUP ZERO TO STORE 
60 STORE IT 



.•READ PSL OVER 10 BUS 



MOVE TO D FOR STORAGE 
STORE IT. DO NOT CHANGE CC 



U 0081, 0018,0038,6580,F980,0000,08FC 
U 0083, 0018,0038,65o0.F980.0000,08FC 
U 0085, 0018,0038.6580.F980.0000,08FC 



C 1 

ZZ-ESOAA-124.0 ; FORKS .MIC C600,1204] I-stream decode for14-Jan-82 Fiche 2 Frame C. 

; P1W124.MCR 600,12043 MICR02 1L<03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPL. A U : , WCS 1 24 

; FORKS .MIC r600,12043 I-stream decode forks : A-FORK for VAX Instructions 



Sequence 208 



Page 207 



U 0087, 0018, 0038. 6580, F 980, 0000, 08FC 

U 0086, 0018, 0038, 2180. F 980, 0000, 08FC 

U 008A, 0000.003C.0180.FA70,0200.00C6 

U 00C6, 0018,0018,1 180.42F0.0000,028E 

U 008C. 0098,0038, 9580, F980. 0000, 08FC 

U 008E, COOO,003C.0180,F804,4000.0062 

U 008F, 0818,1C38,D r 30.F800.0000,039E 



7552 ;HERE ARE EXECUTION STATES FOR ESCAPES AND RESERVED INSTRUCTIONS 

7553 

RCCT03.KC.1O3,J/EXCPT ;ESCE - FAULT THROUGH 10 



RC[TOJJCC.103,J/EXCPT 



7554 
7555 
7556 

7557 083: ; 

7558 RCCT03.KC.103,J/EXCPT 
7559 

7560 085 

7561 

7562 

7563 

7564 

7565 

7566 

7567 087: 

7568 

7569 

7570 086: 



;ESCF - FAULT THROUGH 10 
;ESCD - FAULT THROUGH 10 



*********************************************** 

* Patch no. 070, PCS 0085 trapped to UCS 1180 * 
*********************************************** 



7571 

75 7 2 

7573 ;HERE FOR RSB 

7574 

7575 08A: 

7576 RSB: 



RCCT0J_KC.1O3,J/EXCPT 
RCCTOJjCC.KihJ/EXCPT 



7577 
7578 
7579 
7580 
7581 
7582 
7583 
7584 
7585 08C- 



VA.RCSPJ 



RCSP3 LA+KC.43.RL0G, 
DCLONB3 CACHE, 
J/JMP 



.•RESERVED OPCODE - FAULT THROUGH 10 
•ESCC - FAULT THROUGH 14 

;ADDRESS OF TOP OF STACK 



.•UPDATE STACK POINTER 
;GET RETURN ADDR, 
.-JUMP TO IT 



.-HERE FOR BREAKPOINT 



7586 BP T 
7587 



RCCTOJ KC.B0J.RIGHT2, 

J'PXCPT 
7588 

7589 .-HERE IS U : ! OPERATION 
7590 

7591 08E: :~ 

7592 NOP: 
7593 
7594 

7595 08F : 
759t HALT: 
7597 



BREAKPOINT 

VECTOR ADDRESS IS 2C 

TAKE THE FAULT 



ti .'R.OPC, 
PL. -1.J/IRD 



;D0 NOTHING MUCH 



D Ki - 
PSY.Wu.£?,J/HALT.INST 



DO EVEN LESS 

GO TELL CONSOLE WE HIT HALT INSTR 



ZZ-ESOAA-124.0 ; FORKS .MIC C600. 12043 



; P1W124.MCR 600,12043 
; FORKS .MIC [600,12043 



D 1 
I-stream decode for14-Jan-82 



Fiche 2 Frame D1 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS12T 
I -stream decode forks : B-FORK for VAX Instructions 



Sequence 209 



Page 208 



U 0200, 0COO,0O7F,15EO,BC00, 0000, 0300 

U 0201. 0000,003C,0180,F800,0000,0001 

U 0202, 0FO1,2O7F,15EO,BD88,0O00,03O0 

U 0203, 0000, 003C, 0180, F800, 0000, 0001 

U 0204, 0800, 007F,15EO.BCOO, 0000, 0300 

U 0224, C001,C03C,0180,F8DC,4070,0062 

U 0205, 0000,003C, 01 80,F800,0000, 0001 



7598 
7599 
7600 
7601 
7602 
7603 
7604 
7605 
7606 
7607 
7608 
7609 
7610 
7611 
7612 
7613 
7614 
7615 
7616 
7617 
7618 
7619 
7620 
7621 
7622 
7623 
7624 
7625 
7626 
7627 
7628 
7629 
7630 
7631 
7632 
7633 
7634 
7635 
7636 
7637 



. T 0C 



I -stream decode forks : B-FORK for VAX Instructions" 



Control passes to this point from any 'B.FORK" state. 
The state of the data path is : 

LA, LB = Register selected by bits <3:0> of IB byte 1 

VA = Address of first operand 

D = First operand 

Q = Instruction stream data, if any 

PC = Address of next specifier 



200: ; - 

B.FORK: Q D,D Q, 

IP d. Sync, 

C.FORK 



201: 
202: 



203: 
204: 



224: 
B.WR; 



205: 



S*» SHORT LITERAL 

SEND FIRST OP OUT FOR ACCEL 



J/RSVMOD 



RCCT1J Q, 
ID D.S?NC, 
Q_b\D 0, 
C.FORK 



.•RESERVED MODE 



QUAD/DOUBLE. PUT FIRST WORD IN T1 

SEND FIRST OP OUT FOR ACCEL 

MOVE OP1 TO Q, 2ND WORD OF 0P2 IS 



J/RSVMOD 



.•RESERVED MODE 



Q D.D LA, 
ID D.5VNC, 
C.FORK 



R(PRN) D,DT/INST.DEP, 
SET.CCTlNST), 
CLR.IB.OPC, 
PC PC+1,J/IRD 



REGISTER. GET IT FROM LATC 
SEND FIRST OP OUT FOR ACCE^ 



WRITE TO REGISTER 

STORE RESULT IN REGISTER 

SET CC FROM IT 

AND 60 DO NEXT INSTRUCTION 



J/RSVMOD 



ZZ-ESOAA-124.0 ; FORKS .MIC £600,12043 



; P1W124.MCR 600,12043 
; FORKS .MIC £600,12043 



E 1 
I-stream decode for14-Jan-82 



Fiche 2 Frame El 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 
I-stream decode forks : B-FORK for VAX Instructions 

7638 ;8 FORK SPECIFIER EVALUATION: QUAD REGISTERS 

7639 

7640 206: 



Sequence 210 



Page 209 



U 0206, O0OO,0O7C,15E0,BD38,0000,00CB 

U OOCB. O80O,0O3F,018r- * 860, 0000, 0300 
U 0226, O010,0038,v '00,0000,00E4 

U 00E4. 0001 ,E03C,0180,F8D8, 0070,0112 

U 0112, C001,003C, 01 80, F8E4, 4030,0062 
U 0207, O0OO,0O3C,0180,F800,0000,0001 

U 0208, 0000, 087C1 SCO .BCOO, 0200, 00D0 
U 0209, 0018,0018,1 580, F8D8, 0000, 0208 

U 020A, 0018,0844, 15C0,BCD8, 0200, 00D0 
U 0206, 0000, 007C15E0, BCOO, 0200,0115 



U 0115, 0018,0018.1180,4008,0000,0128 



7641 

7642 

7643 

7644 

7645 

7646 

7647 

7648 

7649 226: 

7650 

7651 

76 "2 

7653 

7654 

7655 

7656 

7657 

7658 

7659 

7660 

7661 

7662 207: 

7663 

7664 

7665 208: 

7666 B.DR: 
7667 

7668 

7669 

7670 209: 

7671 

7672 

7673 

7674 20A: 

7675 

7676 

7677 

7678 

7679 

7680 20B: 

7681 

7682 

7683 

7684 

7685 

7686 

7687 

7688 

7689 

7690 

7691 



RCCT13 LA, 
ID D.SfNC, 
Q_B 



;QUAD REGISTER 

.-SEND FIRST OP OUT FOR ACCEL 

;GET LOW-ADDR WORD TO T1 



D RCPRN+1), 
CTFORK 



Q_RCCT03 



R(PRN) 0, 
SET.CCTlNST) 



R(PRN+1) D, 

n amx.z tst, 
cCr.ib.Dpc, 
pc pc+1 ,j/ird 



J/RSWOD 



;GET SECOND PART 



QUAD WRITE TO REGISTER 
GET LOW ADDRESS PART 



STORE LOW ADDRESS PART 
SETTING TENTATIVE CONDI TION CODE 



HIGH ADDRESS PART IS IN D 

GET FINAL CC, Z IS 1 IFF BOTH ZERO 

FORGET THIS INSTRUCTION 

MOVE ON TO NEXT 



Q&VA LA, 
ID D.SYNC, 
DATA. TYPE?, J/B.M 



R(PRN) LA+KCSP1.C0N3.RL0G, 
J/8.DR" 



R(PRN) LA-KCSP1.C0N3.RL0G, 
QBVA.Aru, 
ID D.SVNC, 
DATA. TYPE?, J/B.M 



Q D,VA LA, 
ID" D.S7NC 



(R) 

SEND FIRST OP OUT FOR ACCEL 



;UPDATE THE STACK POINTER 
;THEN LOAD UN-INCREMENTED ADDR 



;-CR) AUTO DECREMENT 
; USE DECREMENTED ADDR 
.-SEND FIRST OP OUT FOR ACCEL 



8(R)+ AUTO INCREMLNT DEFERED 
SEND FIRST OP OUT FOR ACCEL 



*********************************************** 

* Patch no. 052, PCS 0208 trapped to WCS 117A * 

*********************************************** 



Dr.L0NG3 CACHE, 
R(PRN) CA+KC.43.RL0G, 
J/B.DF" 



GET INDIRECT WORD 
WHILE UPDATING REGISTER 
THEN JOIN COMMON CODE 



F 1 
ZZ-ES0AA-124.0 ; FORKS .MIC C600, 12043 I-stream decode forH-Jan-82 Fiche 2 Frame F1 Sequence 211 
; P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
; FORKS .MIC C600, 12043 I-stream decode forks : B-FORK for VAX Instructions 



210 



U 020C, 0060, C07D,1 580, BDB8, 0000, 047E 



U 026C. 0C1 1,0814,01 CO, F 800, 0200, 00D0 



U 020D. D0O5,2854,15C0,8C0O,0200,00D0 



U 020F, D0O5,2054,15E0,BC0O,0200,0118 



U 0118, 0000, 003C, 01 80, 4000.0000, 01 28 



U , ?8, OC01,033C,01CO,F800,0200.00DO 



7692 
7693 
7694 
7695 
7696 
7697 
7698 
7699 
7700 
7701 
7702 
7703 
7704 
7705 
7706 
^707 
7708 
7709 
7710 
7711 
7712 
7713 
7714 
7715 
7716 
7717 
7718 
7719 
7720 
7721 
7722 
772Z 
7721, 
7725 



;8 FORK SPECIFIER EVALUATION: INDEX AND DISPLACEMENT MODES 
20C: 



26C: 



20D: 



20F: 



RCCT73 LA.CTX, 
ID D.SfNC, 
CACL,J/ASPC 



QfcVAJ>+LC, 
DO. 

DATA. TYPE?, J/8.M 



QfcVA Q+LB.PC, 
CLR.T8.SPEC, 
ID D. SYNC, 
DATA. TYPE?, J/8.M 



Q D,VA Q+LB.PC, 
IP D.S?NC, 
CLR.I8.SPEC 



INDEX MODE, CONTEXT SHIFT INDEX 
SEND FIRST OP OUT FOR ACCEL 
AND 60 EVALUATE BASE OPERAND ADDRESS 

RETURN HERE FROM ASPC 
COMPUTE INDEXED ADDRESS 
RESTORE FIRST OPERAND TO D 
GO GET THfc OPERAND 



D(R) DISPLACEMENT MODE. 
DISCARD THE SPECIFIER 
SEND FIRST OP OUT FOR ACCEL 
GO GET THE OPERAND 



aD(R) DISPLACEMENT DEFERED 
SEND FIRST OP OUT FOR ACCEL 
DROP THE SPECIFIER 



*********************************************** 
* Patch no. 053, PCS 020F trapped to WCS 117B * 

A ********************************************** 



DCLONG3CACHE 



;GET INDIRECT, GO USE IT AS ADDR 



B.DF 



QfcVA D, 

D Q," 

DATA. TYPE?, J/B.M 



;USE POINTER AS ADDRESS 
;RESTORE FIRST OPERAND TO D 



ZZ-ESOmA-124.0 ; FORKS .MIC L60O. 12043 
; P1W124.MCR 600,12043 - ----- 



6 1 
I-stream decode for14-Jan-82 



Fiche 2 Frame 61 



; FORKS !mIC C606. 12043 



louu,i<;u«u i-stream aecoae Tori*i-jan-e<r Picne i frame Gi sequence d\d 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 211 



I-stream decode forks : B-F0RK for VAX Instructions 



U 0214. 0000,003C, 01 80, F 800. 0000, 0001 
U 0215. 0000,003C,0180,F800,0000,0001 
U 0216, 0000,003C,0180,F800,0000,0001 
U 0217. 0000.003C,0180,F800,0000,OOC: 
U 0218. 0000.003C, 0180, F800, 0000,0001 

U 0219, DCOO,087C,15EO,8COO,0000,OOE5 
U 021A, 0000,003C, 0180, F800, 0000, 0001 

U 0218, D0O1,287C,1580,BC00,0200,OOD0 
U021C. 0000, 0O3C, 0180, F800, 0000,0001 
U 021D, O000,003C, 0180, F800, 0000, 0001 



U 021F, F001,2B3C,01FO,F98E,0000,01EO 



7726 ;HERE ARE VARIANTS OF THE B-FORK ENTRY POINTS FOR R=PC 
7727 



7728 214: 

7729 

7730 

7731 215: 

7732 

7733 

7734 216: 

7735 

7736 

7737 217: 

773C 

7739 

7740 218: 

7741 

7742 

7743 219: 

7744 

7745 

7746 

7747 

7748 

7749 21 A: 

7750 

7751 

7752 218: 

7753 

7754 

7755 

7756 

7757 

7758 21 C: 

7759 

7760 

7761 21 D: 

7762 

7763 

7764 21 F : 

7765 

7766 

7767 

7768 

7769 



J/RSVMOD 
J/RSVMOD 
J/RSVMOD 
J/RSVMOD 
J/RSVMOD 



QD.D Q. 
IB D.5YNC, 
CLR.IB.SPEC, 
DATA. TYPE?. J/B. I 



J/RSVMOD 



VA Q, 

id'd'sync, 

CLR.I8.SPEC, 
DATA. TYPE?. J/B.M 



J/RSVMOD 
J/RSVMOD 



RCCT13 Q, 
Q 18. DATA, 
CCR.I8.C0NO, 
PC PC+4, 
I8.TEST7J/B.IQ 



PC REGISTER MODE 

ILLEGAL REGISTER MODE, R=PC 

PC QUAD REGISTER MODE 

ILLEGAL QUAD REGISTER MODE, R=PC 

(PC) 

(PO + IMMEDIATE MODE 

SEND FIRST OP OUT FOR ACCEL 

BEWARE ADDRESS SOURCES 
-(PC) 



8(PC)+ ABSOLUTE MODE 

SEND FIRST OP OUT FOR ACCEL 



INDEX MODE, R=PC 
NESTED INDEX MODE, R=PC 



QUAD IMMEDIATE 

GET SECOND PART 

DISCARD IT FROM IB 

STEP PC OVER SECOND PART OF LITERAL 

MAKE SURE IT'S ALL THERE 



H 1 
ZZ-ESOAA-124.0 ; FORKS .MIC C600, 12043 I-stream decode for14-Jan-82 Fiche 2 Frame H1 Seguence 213 
; P1W1 24. MCR 600.12043 MICR02 1L(0?> 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E. UCS1 24 Page 
; FORKS .MIC [600, 12043 I-stream decode forks : B-FORK for VAX Instructions 



212 



U 0287, 0OOO,0O3D,018O,F800,0O00,0EE0 



U 027C, 000O.0O3D,018O,F800,0O00,OE64 
U 027D. 0000, 003D, 01 80. F 600. 0000. 0880 

U 027E. F000.003F.01FO,F847,0000,0200 



7770 
7771 
7772 
7773 
7774 
7775 
7776 
7777 
7778 
7779 
7780 
7781 
7782 
7783 
7784 
7785 
7786 
7787 
7788 
7789 



.HERE OFF B-FORK WHEN INSTRUCTION DECODE ROMS INDICATE SHOULD NOT DO BFORK 
287: 



CALL.J/EH.USEQ 



-; SHOULD NEVER HAPPEN 
;6ET A MACHINE CHECK 



*********************************************** 

* Patch no. 073. PCS 0287 trapped to WCS 1181 * 

*********************************************** 

;HERE OFF B-FORK, WHEN INSTRUCTION BUFFER DOES NOT HAVE ENOUGH DATA 
27C: 



27D: 
27E: 



CALL.J/IB.TBM 
CALL.J/IB.ERR 



MCT/ALLOW.IB.READ, 
B.FORK 



;TB MISS. REFILL IT 

•ANY ERROR. FIND OUT WHAT HAPPENED 

•STALL. WAIT FOR THE DATA TO COME IN 



I 1 

ZZ-ESOAA-124.0 ; FORKS .MIC [600.12043 I-stream decode for14-Jan-82 fiche 2 Frame 11 Seguence 214 

; PI Wl 24. NCR 600.12043 MICR02 1L(03) 14»Jar,-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE. WCS124 Page 213 

; FORKS .MIC C600. 12043 I-stream decode forks : B-F0RK for VAX Instructions 



U 0000. C001.C03C.0180. 3004.4070. 0062 
U0OD1. 0810. 0038.01EO.F900.0000. 0154 

U 0OD4. 0001, E03F.01E0. 5988.0000.0300 

U 00D5. 0001. E03C.01E0, 5988.0000, 0128 
U OOOw, OC00.003F.01EO.F800, 0000, 0300 
U 0007, 0CO0.O03F.01E0.F8O0, 0000, 0300 



7790 
7791 
7792 
7793 
7794 
7795 
7796 
7797 
7798 
7799 
7800 
7801 
7802 
7803 
7804 
7805 
7806 
7807 
7808 
7809 
7810 
7811 
7812 
7813 
7814 
7815 
7816 
7817 
7818 
7819 
7820 
7821 
7822 
7823 
7824 



.-HERE FOR THE SECOND /WD SUBSEQUENT STATES OFF B-FORK 



=000 
B.M: 



=100 



ALU D.SET.CC(INST). 
CACHE D.INST. DEP. 
CLR.l8.OPC, 
PC.PC+1 , J/IRD 



D RCCT03, 
J78.UQ 



RCCT73 Q, 

Q_D, 

D CACHE. INST. DEP, 

CTFORK 



RCCT73 Q, 

Q.D. 

CACHE. INST. DEP. 

J78.MQ 



Q_D.D Q. 
C.FORR 



Q_D,D Q, 
C.FORJC 

=;END OF DATA. TYPE BRANCH 



;GET HERE Bv DATA. TYPE? 
-.-yRITE DESTINATION 
;SET CONDITION CODES ON RESULT 
.•STORE RESULT 
;60 DO NEXT INSTRUCTION 



STORE QUAD/DOUBLE RESULT 

GET LOW ADDRESS PART TO STORE FIRST 

THEN STORE HIGH ADDRESS PART 

READ OR MODIFY 

SAVE OPERAND ADDRESS 

SAVE FIRST OPERAND IN 

GET NORMAL B. W. L, OR F DATA 

GO EXECUTE 

QUAD/DOUBLE 

OPERAND ADDRESS TO T7 

FIRST OP TO Q, MAKE ROOM FOR SECOND 

GET FIRST LONGWORD OF QUAD/DOUBLE 



-;FIELD SOURCE 
.-FIRST OP TO Q, ADDR OF SECOND TO D 



-.-ADDRESS SOURCE 
.-FIRST OP TO Q. ADDRESS TO D 



J 1 

ZZ-ESOAA-124.0 ; FORKS .MIC C600.12043 I-stream decode for14-Jan-82 Fiche 2 Frame J1 Sequence 215 

; P1U1 24. MCR 600.12043 MICR02 1L<03) H-Jan-82 15:30:16 VAXl 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 

; FORKS .MIC [600,12043 I-stream decode forks : B-F0RK for VAX Instructions 

;HERE TO READ SECOND LONGUORD OF A QUAD/DOUBLE OPERAND 



214 



U 012B. 00O1.0O7C.1580,BD8B,0O00,013D 

U 013D, 0000,003F. 0180,40^0.0000, 0300 

U 0154. 00O1.CO3C, 01 80,30C,, 0070,01 61 

U 0161. 0COO.0O3C.O180.F8O3, 0000, 0164 

U 0164, C001,003C, 0180, 3004,4030, 0062 



7825 
7826 
7827 
7828 B.MQ 



RCCT13 D. 
IDJ>.S?NC, 
VA VA+4 



; STORE FIRST PART OF QUUD/DOUBLE OP 
;SEND IT TO ACCELERATOR 
;6ET ADDRESS OF SECOND PART 



7829 

7830 

7831 

7832 

7833 

7834 

7835 

7836 ;HERE TO STORE QUAD/DOUBLE RESULT INTO MEMORY. SETTING CONDITION CODES 

7837 

7838 

7839 B.WQ 



DCL0NG3_CACHE, 
C.FORK 



;GET SECOND PART OF QUAD/DOUBLE 
;G0 EXECUTE WITH IT 



7840 
7841 
7842 
7843 
7844 
7845 
7846 
7847 
7848 
7849 
7850 



CACHE D.INST.DEP, 
ALU_D, SET. CC (INST) 



DO, 
V* VA+4 



CACHE DCLONG3. 
ALU T,N AMX.Z TST. 
CLR.I8.0PC, " 
PC PC+1 ,J/IRD 



STORE QUAD/DOUBLE RESULT 
SETUP TENTATIVE CC FROM RESULT 



GET HIGH-ADDRESS DATA 
AND GO WRITE IT 



STORE SECOND PART OF QUAD RESULT 

Z=1 IFF BOTH PARTS ZERO 
GO BACK TO IRD 



K 1 
ZZ-ESOAA-124.0 ; FORKS .MIC [600. 12043 I-stream decode for14-Jan-82 Fiche 2 Frame K1 Seguence 216 
P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 



; FORKS !MIC C606, 12043 



I-stream decode forks : B-FORK for VAX Instructions 



Page 215 



U 01E0, 0000,003D,0180.F800,0000,OE64 
U 01E1, 0000,003D,0180,F800,0000,OB80 

U 01E2, FOOO,OB3C.01FO.F800.0000,01EO 

U 01 E3. DC0O,087C,15E0,BC0O,O000,O0E5 
U 00E5, 0000.003F. 0180, F800 ,0000,0300 
U 00E7, 0814,0038, 01 80. F 800, 0000,01 6A 

U 016A, 0819. ,003,1 580, F800, 0000,0300 



HERE FOR QUAD/DOUBLE I-STREAM LITERALS 

THE FIRST LONSWORD OF LITERAL IS IN T1 ALREADY, WE'VE TRIED TO READ THE 
SECOND LONGWORD, AND HERE WE TEST TO SEE IF WE GOT IT. 



7851 
7852 
7853 
7854 

7855 =00 

7856 B.IQ: CAIL,J/IB.TBM 
7857 



7858 
7839 
7860 
7861 
7862 
7863 
7864 
7865 
7866 
7867 
7868 
7869 
7870 

7871 =101 

7872 B.I: 
7873 

7874 
7875 
7876 
7877 
7878 
7879 



CALL, J/IB. ERR 



Q I8.DATA,CLR.IB2-5, 
IS.TEST?,J/B.IQ 



D Q,Q D, 
IP D.5YNC, 
CLR.IB.SPEC. 
DATA. TYPE? 



C.FORK 

6 pc 



D D-KCSP1.CON3, 
C.FORK 



ISTREAM HAD A T8 MISS 

I BUFFER STOPPED FOR AN ERROR 



STALL WAITING FOR THE DATA 
LOOP UNTIL IT ARRIVES 



LEAVE IT IN D, MOVE FIRST OP TO Q 
SEND FIRST OP OUT FOR ACCEL 
GOT IT, CLEAR IT 



;NORMAL SRC, GO USE IT 

•ADDRESS SOURCE. FIGURE OUT ADDR 

; BY SUBTRACTING SIZE FROM CURRENT PC 



L 1 
ZZ-ESOAA-124.0 ; FORKS .MIC C600.12043 I-stream decode for14-Jan-82 Fiche 2 Frame L1 Seguence 217 
; P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
; FORKS .MIC [600. 12043 I-stream decode forks : B-F0RK for VAX Instructions 



216 



U 02C0. 401D.E00C. 0180. F8C5, 4070. 0062 



U 02C4. 401C.E00C. 0180. F8C5. 4070.0062 



J 02AF. C01C.E00C. 0180, F804, 4070, 0062 



U 0227. C01C.EO0C, 0180, F8DC. 4070. 0062 



7880 
7881 
7882 
7833 
7884 
7885 
7886 
7887 
7888 
7889 
7890 
7891 
7892 
7893 
7894 
7895 
7896 
7897 
7898 
7899 
7900 
79o1 
7902 
7903 
7904 
7905 
7906 
7907 
7908 
7909 
7910 
7911 
7912 
7913 
7914 
7915 
7916 
7917 
7918 
7919 
7920 
7921 
7922 
7923 



HERE FOR CERTAIN 3-OPERANO INTEGER AND BOOLE INSTRUCTIONS 
NAMELY AD0x3. SUBx3, BISx3, BICx3, X0Rx3 FOR x=8. W, L 
WITH THE SECOND SPECIFIER SHORT LITERAL, AND THE THIRD REGISTER MODE. 



2C0: 



ALU CONST. DEP3D, 
R(SP1) ALU, 
SET.CCTINST), 
CLR.IB0-1, 
PC PC+2.J/IRD 



;3L-R OPERATION 

;PUT RESULT IN DEST REGISTER 

;DR0P OPCODE I DST SPEC 



HERE FOR CERTAIN 3-OPERAND INTEGER AND BOOlE INSTRUCTIONS 
NAMELY ADDx3, SUBx3, BISx3, BICx3, XORx3 FOR x=8, W, L 
WITH BOTH SECOND AND THIRD SPECIFIERS INDICATING REGISTER MODE OPERANDS. 



2C4: 



ALU LACINST.DEP3D, 
R(SP1) ALU, 
SET.CCTINST), 
CLR.IBO-1, 
PC_PC+2,J/IRD 



;R-R OPERATION 

;CC ARE INSTR DEPENDENT 



HERE FOR CERTAIN INTEGER INSTRUCTIONS WHICH DO NOT WRITE A DESTINATION, 
NAMELY BITS, BITW, BITL, CMPB, CMPW, CMPL 
WITH THE SECOND SPECIFIER REGISTER MODE. 



81 T R: 

CMp!r! ALU LACINST.DEP3D. 

SET.CC(INST), 

CLR.IB.OPC. 

PC PC+1.J/IRD 



.•OPERATE REGISTER AGAINST MEM 
; SET THE CONDITION CODES IN PSL 
.•DISCARD OP, DO NEXT INSTR 



HERE FOR CERTAIN INTEGER AND BOOLE INSTRUCTIONS WHICH WRITE A DESTINATION, 
NAMELY ADDx2, SUBx2, BISx2, BICx2, XORx2 
FOR x=8, W. L, AND ADWC, SBWC 
WITH THE SECOND SPECIFIER REGISTER MODE. 



227: 



ALU LACINST.DEP3D, 
R(PRN) ALU, 
SET.CCTINST;, 
CLR.IB.OPC, 
PC PC+1.J/IRD 



MEM-R OPERATION 

RESULT INTO DST REGISTER 

SET CONDITION CODES ACCORDINGLY 

GO DO NEXT INSTR 



' H 1 

ZZ-ESOAA-124.0 ; FORKS .MIC [600,12043 I-stream decode for14-Jan-82 Fiche 2 Frame M1 Sequence 218 



; P1W124.MCR 600.12043 
; Fr^KS .MIC [600,12043 



iouu,i<:u*u i-stream aecoae Tori«i-jan-o^ Ficne i frame mi 5egu« 
MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 
I-stream decode forks : B-F0RK for VAX Instructions 

;HERE FOR A08LSS, AOBLEQ WHEN DESTINATION IS RE6ISTER 



I'J 0223, O818,0O18,05E0,F8D8,O07O,018E 



U 018E, 701D,0B0O,01F0,F8O4. 0010, 0210 
U 0210, O0OO,0O3D,0180,F8O0,O00O,0E64 
U 0211, OT-)O,0O3D,0180.F8O0,O00O,OB80 

U 0212, 7000,0E3C, 01 F0,F8OC, 0000,0210 
U 0213, 401 5. 381 4, 01 CO, F 804, 4000, 0461 



7924 
7925 

7926 223: 

7927 A08.R: 
7928 
7929 
7930 
7931 
7932 
7933 
7934 
7935 
7936 
7937 
7938 

7939 =00 ; 

7940 A08.R1: CALL, J/18. T8M 
7941 



Q D, 

R7PRN) LA+KC.1J.RL0G, 

D ALU, 

SET. CC (LONG) 



ALU D-Q, 
CLK.U8CC, 
Q I8.8DEST, 
Pi PC+1, 
I8TTEST? 



7942 

7943 
7944 
7945 
7946 
7947 
79<^ 
7949 
7950 
7951 
7952 
7953 



CALL, J/ IB. ERR 



Q I8.8DEST, 
IB.TEST?,J/A0B.R1 



SAVE LIMIT IN Q 

UPDATE THE DESTINATION RE6ISTER 

COPY IT FOR COMPARE 

SET CONDITION CODES FROM INDEX 



COMPARE INDEX TO LIMIT 
SAVE RESULT FOR BRANCH 
GET BDEST FROM IB 
STEP PC OVER IT 
DOES IB HAVE THE DATA' 



18 STOPPED FOR T8 MISS 



Q Q+PC, 
CTR. 180-1, 
PC PC+1, 
AL0?,J/AOB.2 



COMPUTE BRANCH DESTINATION 
BUT ASSUME NO BRANCH 
ADVANCE PC TO NEXT IN LINE 
FIND OUT WHETHER TO BRANCH 



Page 217 



ZZHESOAA-124.0 ; FORKS .MIC £600,1204:1 



: ; P1W124.MCR 600-12043 
;; FORKS .MIC [600.1204J 



N 1 
I -st ream decode for14-Jan-82 



Fiche 2 Frama N1 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX1V780 Microcode : PCS 01, FPLA OE, WCS124 
I-stream decode forks : B-F0RX for VAX Instructions 



Sequence 219 



'age 21 & 



U 02A8. 7019, 0824, 8DF0.F8G* .0010,0230 

!u 023C, 0OO0,O03D,O180.F < ?0O.0O00,0E64 

i 

i 

ju 0231. 0000,003D,C180,F800.00uO,0880 
iu 0232. >0O0.083C,O1F0,F80O,0000.02JC 

f 

t 
I 

: 

iu 0233, 0001. 01 3C, 01 80, F 800, 0062. 0020 

i 

i 

1 

■u 0020. OOG.'.,003C,O180,F80O,0O00,0106 

i 

\d 0021. 00T0. 0024, 0180.F800.0010. 0191 

ju 0191. 0000, 180C, 0180. F8D8.0000.00E9 
U 0O£>, 2015,2014,0180,F801,4200.00A8 

'J OOEB, COOO,O(3C,O'i80,F8O4/*O0O,006? 

iu OOED. C0O0.003C.0180,F804,4C00,0062 
■o OOff. 2015. 2014, 0180. F801, 4200, C0A8 



7954 
7955 
7956 
7957 
7958 
7959 2A8: 



7969 
7970 
7971 
7972 
7973 
7 974 
7975 
7976 
7977 
7978 
7979 
7980 
7981 
/982 
7983 
7984 
7985 
7986 
7987 
7988 
7989 
7990 
7991 
7992 
7993 
7994 
7995 
7996 
7997 
7998 
7999 
3000 
8001 
8002 
8003 
8004 
8005 
8006 



;HERE FOR BBS, BBC, BBSS, BBCS, BBSC, BBCC, BBSSI, BBCCI 

* WHEN BIT IS IN A REGISTER 

; CONTAINS THE POSITION OPERAND (A LONGWORD), AND LA CONTAINS THE 

; REGISTER SELECTED BY THE SECOND SPECIFIER. 



7960 
7961 
7962 
7963 
7964 
7965 

7966 =00 ; 

7967 BB.R1: CALL.J/IB.TBM 
7968 



BB.R: ALU.D.ANDN0T.KC.1F3, 
CLK.UBCC, 
c IB.BDEST, 
PC PC+1 , 
18. TEST? 



TEST POSITION FOR LESS THAN 32 

SETTING ALU Z IF SO 

GET BDEST TO Q 

STEP PC PAST IT 

CHECK "-IAT WE GOT BDEST 



CALL, J/IB. ERR 



Q I8.BDEST, 
IS.TEST?,J/BB.R1 



CLR.IB.SPEC, 

SC D. 

2? 



=0 
FO.ABS.20: 



J/l:SVOPR 



DISCARD BDEST FROM IB BYTE 1 
GET BIT POSITION INTO SC 
CHECK THAT IT IS LESS THAN 32 



— ;ALU Z=0 

.POSITION .GEO. 32. RESERVFD OPERAND 



ALU LA. A. &;" JOT. MASK, 
CLKTUBCC 



R'PRN) LAC INST. DEPJMASK, 
ALJ? " 



ALU Z=1 (POSITION .LSS. 32) 
TEST SELECTED BIT OF REGISTER 
SET 7. ACCORDINGLY 



MODIFY THE SIT AS RFQUIRED 
TEST WHETHER TC BRANCH 



-1 



001 



PCiVA_Q+PC, FLUSH. 18, J/IB. FILL ;Z=0. BBS 

CLR. 18. OPC, ;Z=0, BBC 

PC^PC+^J/IRD 



CLR. IB. OPC, 
PC_PC+1,J/IRD 



;Z=1, BBS 
PC£VA_0+PC, FLUSH. 18, J/18. FJLI. ;Z=1, BBC 



ZZ-ESOAA-124.0 ; FORKS .MIC C600. 12043 



; P1W124.MCR 600,12043 
; FORKS .MIC [600,12043 



B 2 

1-stream decode for14-Jan-82 



Fiche 2 Frame B2 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 
I-strevn decode forks : B-FORK for VAX Instructions 

;B-F0RK EXECUTIONS 



Sequence 220 



U 024D, C001,C03C.0180,F804, 4070. 0062 



U 024E, 081D.C00C, 0180, F800, 0070, 0341 



U 0248, 0001, C03C, 0180, FA70, 0070, 0194 
U 0194, 0018,0004,1 180,FAFO,0200,0341 



U 028F, 0814. 0038, 01E0,FA70, 0000, 01A4 
U 01A4, 0018. 0004, 1180. FAFO,0200,018C 

U 01BC, 0000,0030,0180,3000,0000,0163 



U 028E, 2001,003C,0180,F801,A200.00A8 



8007 
S008 
8009 
8010 
8011 
8012 24D: 



8013 
8014 
8015 
8016 
8017 
8018 
8019 
8020 
8021 



8030 
8031 
8032 
8033 
8034 
8035 
8036 
8037 
8038 
8039 
8040 
8041 
8042 
8043 
8044 
8045 
8046 
8047 
8048 
8049 
8050 
8051 
8052 
8053 
8054 
8055 
8056 
8057 



;HERE FOR TSTB, TSTW, TSTL 
; THE SOURCE OPERAND IS IN D. 



TST: ALU D,SET.CC(INST), 
CLR.IB.OPC, 
PC.PC+1 , J/IRD 



;JUST SET CC FROM DATA 



;HERE FOR INCx, DECx, FOR x= B, W, L AND DESTINATION NOT REGISTER 
; THE DESTINATION OPERAND IS IN D 



24E 
INC 



8022 DEC 

8023 

8024 

8025 

8026 

8027 

8028 

8029 248: 



D DCINST.DEP3Q, 

SET.CC(INST), 

J/STORE 



; OPERATE ON n.ATA IN D 
;SET CC IN PZl ACCORDINGLY 
.•STORE IT ACCORDING TO VA 



;HERE FOR PUSHL AND PUSHAB, PUSHAW, PUSHAL, PUSHAQ 

; D CONTAINS THE SOURCE OPERAND (ADDRESS, IN "ME CASE OF PUSHA) 



PUSHL: 

PUSHA: ALU D,SET.CC(INST), 
LAB"RCSP3 



;SET PSL CC FROM DATA TO TQPZ 
;&T SP READY TO DECREMENT 



RCSP38VA LA-KC.O.RLOG, 
J/STORE 

.-HERE FOR JS6. JUMP ADDRESS IS IN D 



.-LOAD DECREMENTED SP INTO VA 



28F: 

JS9: 



D PC, 
L*B RCSP3 



RCSP36VALA-KC . 43 . RLOG 



CACHE J>CL0NG3, 
J/JMP.Q 

.-HERE ON JMP. JUMP ADDRESS IS IN D 



.-JUMP ADDR TO Q, 

;GET PC TO SAVE 

.-GET STACK POINTER INTO LATCH 



.•DECREMENT SP INTO VA 



; STORE PC ON THE STACK 
;AND JUMP TO ADDR IN Q 



28E: 
JMP: 



PC&VA D, 

FLUSHTIB, 

J/JB.riLL 



;L0AD NEW ADDRESS 



Page 219 



ZZ-ES0AA-124.0 ; FORKS .MIC C600, 12043 



; P1W124.MCR 600,12043 
; FORKS .MIC C600. 12043 



C 2 
I-stream decode for14-Jan-82 



Fiche 2 Frame C2 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA G£, WCS1 24 
I-stream decode forks : B-FORK for VAX Instructions 



Sequence 221 



Page 220 i 



U 02CF, 7019,OB0C,05F0,F804,0010,03B8 

U 03B8, 0000, 003D, 0180, F800, 0000, 0E64 

U 03B9, 0000, 003D, 01 80, F 800, 0000,0880 

U 03BA, 7000, OB3C,01FO,F800, 0000, 03B8 

U 03B8, 4815,2114,0180.F804,4000,OOAO 

U 00A0, 2001, 003C, 0180, F801, 4200, 00A8 

u 00A1, F80t, 0038, 01 F1,F 857, 1398, 6000 



8058 
8059 
8060 
8061 
8062 
8063 
8064 
8065 
8066 
8067 
8068 
8069 
8070 
8071 
8072 
8073 
8074 
8075 
8076 
8077 
8078 
8079 
8080 
8081 
8082 
8083 
8084 
8085 
8086 
8087 
8C88 
8089 



.-HERE FOR BL8S, BLBC 

; THE SOURCE OPERAND IS IN D 



2CF: 
BLB: 



=00 
BL8.1 



=0 



ALU DCINST.DEP3KC.13, 

CLK.UBCC, 

Q IB.BDEST. 

Pt PC+1 , 

18. TEST? 

CALL, J/IB. TBM 



;01 

CALL, J/IB. ERR 



;10 

Q IB.BDEST, 
I8.TEST?,J/BLB.1 



D Q+PC, 
CtR.IBO-1, 
PC PC+1, 
IT 



PC£VA D, 
FLUSH7IB, J/IB. FILL 



IRD 



TEST LOW BIT FOR SET OR CLR 
SET ALU Z BIT ACCORDINGLY 
GET BRANCH DISP 

SEE IF WE GOT IT 

TB MISS 

GO FILL IN TB, IT DOESN'T KNOW 

IB ERROR 

IBUFFER STOPPED FOR AN ERROR 

STALL 

WAIT FOR DATA 
TEST FOR ARRIVAL OF BDEST 



COMPUTE BRANCH ADDR 

DISCARD OPCODE IN CASE NO BRANCH 

AND STEP PC TO NEXT 

SHOULD WE BRANCH? 

Z=0 

TAKE THE BRANCH 



-; Z=1 
; DON'T BRANCH 



D 2 
ZZ-ES0AA-124.0 ; FORKS .MIC [600, 12043 I-stream decode forH-Jan-82 Fiche 2 Frame 02 Sequence 222 

; P1W124.MCR 600.12043 M1CR02 1LC03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, F°IA 0E, WCS1^4 Page 

; FORKS .MIC C60C, 12043 I-stream decode forks : B-FOPK for VAX Instructions 



221 



U 02CE, 7819,0800,05FO,F804,0070,03E8 

U 03E8, 0000. 003D,0180,F800, 0000, 0E6E 

U 03E9. 0000. 003D, 0180, F800, 0000,0880 

U 03EA, 7000,083C,01FO,F800,0000,03E8 

U 03EB, DO15,3AK.01C0, 3000, 0000. 0163 

U 0163, 2001,203C,0180,F801,4200,OOA8 

U 0167, C000.1B3C, 0180, F804, 4000, 012D 

U 016B, C0O0,003C, 0180, F804, 4000, 0062 

U 012D, 20O1,203C.0180,F801,4200,O0AB 

U 012F, F80C, 0038, 01F1,F857,1398, 6000 



8090 
8091 
8092 
8093 
8094 
8095 
8096 
8097 
8098 
8099 
8100 
8101 
8102 
8103 
8104 
8105 
8106 
8107 
8108 
8109 
8110 
8111 
8112 
8113 
8114 
8115 
8116 



.-HERE FOR S086TR, S0BGEQ WHEN DESTINATION IS NOT REGISTER 
; THE DESTINATION OPERAND IS IN D 



2CE: 
508: 



D D-KC.13, 
SET. CC (LONG), 
Q I8.8DEST, 
PZ PC+1 , 
18. TEST? 



S08.1: CALL, J/IB. TBR 



.•DECREMENT THE OPERAND 

;GET BRANCH CONDITION 

;GET 8 CLR BRANCH DISPLACEMENT FROM IB 

;SEE IF WE GOT IT OK 



CALL, J/IB. ERR 



Q I6.8DEST, 
IB.TEST?,J/S08.1 



CACHE DCLONG3, 
CLR. IB. SPEC, 
Q Q+PC, 
P3L.CC? 



CLR.I8.0PCPC PC -1, 
IR0?,J/SO8.3 



8117 JMP.3: 

8118 SCC 2: PC*VA Q, FLUSH. I8,J/IB. FILL 
8119 

8120 
8121 
8122 
8123 
8124 
8125 
8126 
8127 
8128 
8129 
8130 
8131 
8132 
8133 
8^34 IRD 



r; R.J8.0PCPC PZ+1. 
./IRD 



^.END PSL.CC TEST 



=1 1 01 ; 

SOB. 3: PC6VA_Q, FLUSH. IB, J/IB. FILL 



WAIT FOR IBUFFER TO GET BDEST 
LOOP TESTING 



STORE RESULT IN MEMORY 
DISCARD BDEST FROM 18 BYTE 1 
COMPUTE BRANCH ADDRESS 
BRANCH? 

N=0, 1=0 

ALSO USED BY JS8 

RESULT GTR, SO BRANCH 

N=0, Z=1 

BRANCH IFF SOBGEO 

N=1, Z=0 

RESULT LSS, DO NOT BRANCH 



•;IR0=0 
.-S08GEQ BRANCHES ON ZERO 

■;IR0=1 
;S08GTR DOES NOT BRANCH ON ZERO 



ZZ-ES0AA-124.0 ; FORKS .MIC C600. 12043 
; P1W1 24. MCR 600.12043 """" ' 
; FORKS .MIC C600, 12043 



E 2 

I-stream decode for14-Jan-82 
MICR02 1LC03) 14-Jan-82 15:30:16 VAX11/780 Mic 
I-stream decode forks : B-FORK for VAX Instructions 



Fiche 2 Fra»ce £2 Seguence 223 

rocode : PCS 01, FPLA 0E, WCS124 Page 222 



U 028B, 0803,403C.3DF0.2C00.0000.01D5 

U 01D5. 081 D,380C. 01 80, F 800, 0000,0289 

U 02B9, COOO,003C,3D80,3C04, 4000, 0062 

U 02BB. 0000.003C, 0180, F800, 0000, 0106 



U 0249, F81D,E00F,01F0,F847, 0070, 0300 



U 024A. F 803, C03F , 01 F0,F 847, 0000,0200 



B135 
b.36 
8137 
8138 
8139 
8140 
8141 
8142 
8143 
8144 
8145 
8146 
8147 
8148 
8149 
8150 
8151 
8152 
8153 
8154 
8155 
8156 
8157 
8158 
8159 
8160 
8161 
8162 
8163 
8164 
8165 
8166 
8167 
8168 
8169 



.•HERE FOR SISPSU AND BICPSW 
; THE SOURCE OPERAND IS IN D 

BISPSW: 

BICPSU: Q '*>CPSL3, 

D ty.0XTCWORD3 



D uriNST.DEP3D, 

r/;ei? 



=01 



;0 

IDC°SL3 D, 

CLR.I8.SPC, 

PC_PCH,J/IRD 

J/RSVOPR 



.-HERE FOR MNEGx, MCOMx FOR x=B. 
; THE SOURCE OPERAND IS IN D 



W, L 



249: 

MNEG: 

MCOM: 



D QCINST.DEP3D, 
SFT.CC(INST), 
WRITE. DEST,J/WRD 



;HERE FOR MOVZBW, MOVZBL, MOVZWL 
; THE SOURCF OPERAND IS IN D 



24A: 
MOVZ: 



D D.OXTCINST.DEPJ, 
B.FORK 



;6ET PSL READY FOR MODIFICATION 
.-DISCARD GARBAGE FROM WORD OPERAND 



.-SETUP F~L 

;IS BYTE 1 CLEAR? 



-.-BYTE 1 .EQL.O 
.-WRITE BACK PSL 



-.-BYTE 1.NEQ.0 
.-TAKE RESERVED OPERAND TRAP 



.•OPERATE ON D 

.-LOAD PSL cC ON FUNCTION 

;60 EVALUATE DOST SPECIFIER 



ZERO EXTEND THE SOURCE OPERAND TO LONG 
GO WRITE THAT RESULT AS MOVE WOULD 



F 2 
ZZ-ESOAA-124.0 ; FORKS .MIC C600.120AD I-stream decode for14-Jan-82 Fiche 2 Frame F2 Seguence 224 

: P1W1 24. MCR 600.12043 MICR02 1L(03) H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS1 24 Page 
; FORKS .MIC C600J204] I-stream decode forks : B-F0RK for VAX Instructions 
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U O20E, 0000,003D,1980,F800,0084,647E 

U 026E, 0000,OC3C,0180,F800,0000,OOD2 

U 026F, C01C,C014,0180,F8DC, 4070, 0062 

U OOD2, 0000,403C, 0180,7000, 0000, 01F3 

U 00D3, 0000, 003C,0180,F800,0000, 0106 

U 01F3, 081D.C014, 0180, F800, 0070, 01F9 

U 01F9, C000,403C, 0180, 3804, 4000. 0062 



8170 
8171 
8172 
8173 
8174 
8175 
8176 
8177 
8178 
8179 
8180 
8181 
8182 
8183 
8184 
8185 
8186 
8187 



8194 
8195 
8196 
8197 
8198 
8199 



HERE FOR ADAWI 

ADD ALIGNED WORD INTERLOCKED 
D CONTAINS SOURCE 



20E: 
ADAWI: 



26E: 
26F: 



SC KCZEROD, 
CACL,J/ASPC 



MUL?,J/ADA.1 



; CLEAR SC FOR BRANCH ON RETURN 
; EVALUATE DESTINATION ADDRESS 

-; RE TURN HERE WITH MEMORY OPERAND 
;TEST ALIGNMENT OF DESTINATION 



; ;RETURN HERE WITH REGISTER OPERAND 

R(PRN) LA-MJ, 

SET.CC7INST), 

PC PC+1,CLR.IB.0PC, 

J/TRD 



;PUT RESULT IN REGISTER 
;MOVE ON TO NEXT INSTRUCTION 



=10 



8188 ADA.1: DCWORDJ CACHE. LK, 

8189 ■'"- — 
8190 
8191 
8192 
8193 



J/ADA.2 
J/RSVOPR 
ADA. 2: D_D+Q,SET.CC(INST) 



CACHE DCW0RD3.LK, 
CLR.l8.0PC,PC_PC+1,J/IRD 



;D0=0, DEST IS WORD ALIGNED 

;GET DEST INTERLOCKED 



■;D0=1, UNALIGNED 



;ADD SOURCE TO DESTINATION 



; WRITE IT BACK 

;GO TO NEXT INSTRUCTION 



ZZ-ESOAA-124.0 ; FORKS .MIC [600.12043 
; P1U124.MCR 600.12043 
; FORKS .MIC [600, 12043 
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U 028C, C010,C038,0180.F904,4870,0062 



U 0280. COOL C03C. 01 80, F 804. 4870. 0062 



U 0285. 0001, 183C.0180.F800. 0883. 01CC 



U 0241, 0810.0038.01EO.F900.0883.01CD 



U 01CB, 0018,C038,19F8,F988, 0070,0089 



U 01CC, rF18,C03B,19FO,F847,0070,0300 



U 01CD, 0001,2C3C,0180,F988,0000,01CB 



U 01CE, F819,COOF,45FO,F847.0070,0300 



U 01 CF, F819,COOF,45FO,F847,0070,0300 



8200 
8201 
8202 
8203 
8204 
8205 
8206 
8207 
8208 
8209 
8210 
8211 
8212 
8213 
8214 
8215 
8216 
8217 
8218 
8219 
8220 
8221 
8222 
8223 
8224 
8225 
8226 
8227 
8228 
8229 
8230 
8231 
8232 
8233 
8234 
8235 
8236 
8237 
8238 
6239 
8240 
8241 
8242 
8243 
8244 
8245 
8246 
8247 



.•FLOAT/DOUBLE EXECUTIONS WITH SINGLE OPERAND 



28C: 
TSTD: 



28D: 
TSTF : 



285: 
MOVF: 
MNEGF : 



241: 

MOVD: 

MNEGD: 



=1000 
=1011 
M0VD.1 



=1100 
MOVD. 2: 



ALU_RCCT03.SET.CC(INST), 
CHK.FLT.OPR. 
CLR.IB.OPC.PC PC+1.J/IRD 



ALUJ).SET.CC(INST), 

CHK.FLT.OPR. 

CLR.IB.0PC,PC.PC+1,J/IRD 



SC D(EXP), 

CHR.FLT.OPR, 

D.BYTES7.J/MOVD.2 



OJ>, 

D RCCT03, 

CRK.FLT.OPR, 

SC ALU(EXP),J/M0VD.3 



Q 0.RCCT13 KCZER03, 
SFT.CC(INST),J/WRQ.DST 



D O.ALU KCZER03, 
SPT.CC(lNST), 
WRITE. DEST,J/WRD 



=1101 ; 

M0VD.3: RC[T13 Q, 

MUL?,J7M0VD.1 



=1110 



=1111 



D DCINST.DEP3KL". 80003, 
SET.CC(JNST), 
WRITE. DEST,J/WRD 



DD[INST.DEP3KC. 80003, 
SfT.CC(INST), 
WRITE. DEST.J/WRD 



TSTD 

SET CONDITION CODES FROM SOURCE 

FAULT IF RESERVED OPERAND 

GO TO NEXT INSTRUCTION 

TSTF 

SET CONDITION CODES FROM SOURCE 

FAULT IF RESERVED OPERAND 

GO TO NEXT INSTRUCTION 

MOVF, MNEGF 

GET EXPONENT FOR ZERO TEST 

CATCH RESERVED OPERANDS 

IS EXPONENT ZERO (CRUDELY)? 



SAVE LOW-ORDER FRACTION BITS 
GET OUT HIGH PART WITH EXPONENT 
ABORT IF RESERVED OPERAND 
CATCH EXPONENT FOR ZERO TEST 

SET UP CONSTRAINT BLOCK 

SC .EQL. ON 'WUL?" TEST AT M0VD.3 

CLEAN UP POTENTIALLY DIRTY ZERO 



•;D<15:0> .EQL. 
; RESULT IS FLOATING ZERO 
;SET CONDITION CODES TO ZERO 



D BYTE 1 .EQL. (IF MOVF, MNEGF) 
SAVE LOW-ORDER WHERE CFORK CAN FIND 
IS THE EXPONENT (IN SC) ZERO? 

D BYTE 1 .NEQ. IN MOVF, MNEGF 
TRANSFORM SIGN IF MNEG 
SET CONDITION CODES FROM DEST 
STORE THAT 

SC .NEQ. OR D BYTES 1&0 .NEQ. 
TRANSFORM SIGN IF MNEG 
SET CONDITION CODES FROM DEST 
STORE THAT 



H 2 
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U 024C. F802,C03F,01FO,F847.0000,0200 



U 024B. 0002. C03F, 01 CO, F800, 0050, 0286 



U 0286. F01D.C023.01FO.F8A7, 0070, 0300 



8248 
8249 
8250 
8251 
8252 
8253 
8254 
8255 
8256 
8257 
8258 
8259 
8260 
8261 
8262 
8263 
8264 
8265 
8266 
8267 
8268 
8269 
8270 



.-HERE FOR CVTBW, CVTBL, CVTWL, WITH THE SOURCE OPERAND IN D 
; THEY ARE EASY, BECAUSE 'HE" NEED ONLY SIGN EXTEND THE SOURCE 



24C: 
CVTBW 
CVTBL 
CVTWL 



D_D.SXTCINST.DEPJ, 
B.FORK 



.-SIGN EXTEND THE SOURCE TO LONG 
;GO WRITE THAT AS MOVE WOULD 



.-HERE FOR CVTW8, CVTLB, CVTLW, WITH THE SOURCE OPERAND IN D 
; THEY E RE TOUGHER. BECAUSE WE MUST CHECK FOR OVERFLOW 



248: 
CVTLW: 
CVTLB: 
CVTWB: 



286: 
CVT.2: 



Q D.SXT[INST.DEPJ, 
NEZ ALU.V8C 0, 
SUB7SPECJ/CVT.2 



ALU_D.XOR.Q,SET.CC(INST). 
WRITE. DEST.J/WRD 



.-MAKE BYTE LONG 

; SET CC ON IT (DEST RESULT) 

.•ADVANCE EXEC PT CTR FOR NEW CONTEXT 



;SET V IF SOURCE DATA TYPE (IN D) 
; NOT EOL TO DST DATA TYPE IN Q 
; GO STORE RESULT 
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U Pj>49, C01D.C00C. 0180. F804, 4070,0062 



U 034B, 081D.C00C. 0180. F800, 0070,0341 



U 034A, F81D,COOF,01FO,F847,0070,0300 



U 03C0, 0001 ,203F,E 580, 3D80. 0000. 0400 



8271 
8272 
8273 
8274 
8275 
8276 
8277 
8278 
8279 
8280 
8281 
8282 
8283 
8284 
8285 
8286 
8287 
8288 
8289 
8290 
8291 
8292 
8293 
3294 
8295 
8296 
8297 
8298 
8299 
8300 
8301 
8302 
8303 
8304 
8305 
8306 
8307 
8308 
8309 
8310 
8311 
8312 
8313 
8314 
8315 
8316 
8317 
8318 
8319 
8320 
8321 
8322 



T0C 



I-stream decode forks : C-FORK for VAX Instructions' 



Control passes here from any "C.FORK" state. 
The state of the data path is: 

LA & LB = Register selected by second specifier 

VA = address of second operand 

D = second operand 

Q = first operand 

Unlike A and B forks, specifier evaluation here is by subroutine call. 
Instructions with two or more operands go to execution at 
C fork. Those which have three or more call either the SPEC or ASPC 
subroutines to evaluate specifiers after the first two. 

HERE FOR 2-OPERAND INTEGER INSTRUCTIONS WHICH DO NOT WRITE A DESTINATION, 

NAMELY BITB, BITW, BITL, CMPB, CMPW, CMPL 

WHEN THE SECOND SPECIFIER IS MEMORY OR SHORT LITERAL 



349 
BIT 
CMP 



ALU DCINST.DEP3Q, 
SET.CCCINST), 
CLR.IB.OPC, 
PC.PC+1 , J/IRD 



; OPERATE ON OPERANDS 

; CONDITION CODES ARE ONLY RESULT 

.•DISCARD OP, DO NEXT INSTRUCTION 



HERE FOR 2-OPERAND INTEGER fND BOOLE INSTRUCTIONS WHICH WRITE A DESTINATION, 
NAMELY ADDx2, SUBx2, BISx2, BICx2, X0Rx2, MNEGx, MOVx, KCOMx 
FOR x = B, W, L, PLUS ADWC, SBWC 

WHEN THE SECOND SPECIFIER IS MEMORY 



34B: 



D DCINST.DEP3Q, 
SET. CC( INST), 
J/STORE 



DO THE OPERATION 

SET PSL<NZVC> ACCORDINGLY 



HERE FOR 3-OPERAND INTEGER AND BOOLE INSTRUCTIONS 

NAMELY ADDx3, SUBx3, BISx3, BICx3, X0Rx3 FOR x = B, W, L 
WHEN THE SECOND SPECIFIER IS MEMORY OR SHORT LITERAL 



34 A: 



D DCINST.DEP3Q, 
SEXCC(INST), 
WRITE. DEST.J/WRD 



DO THE OPERATION 

SET CONDITION CODES 

GO WRIVE DESTINATION BY SPEC 3 



.-HERE FOR MANY-OPERAND INSTRUCTIONS WHOSE EXECUTION STARTS ON D.FORK 
;RE-DISPATCH THERE FOR FURTHER OPERATION 



3C0: 



RCCT63 Q, 
IDCT93"D, 
SUB/SPPCJ/ASPC.B 



SAVE Q FOR LATER USE 

LIKEWISE D 

GO ON TO D.FORK 



U 034D, OO01,2O3C,01E0,F8O0»0082,O1FA 



U ulFA, FD0O,0O3F,01F0,F847, 0000,0200 
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U 034C, 0002,AD3C,01FF,F800, 0082, 0116 



U 0116, OD01,343C,75EO,F980.0014,81E4 



U 0117, OD01,3428,75EO,F980,0014,81E4 



U 01E4, F001,003F,01FO,F847,0050,030C 



U 01E5, 0C10, 1238, 01CO,F900, 0000,0096 



U 01E6, 0810,OD38,C5A8,3DOO, 0000,0234 



U 01E7, 0005,003C,01F8,F980,0050,01A9 



8323 
8324 
8325 
8326 
8327 
8328 
8329 
8330 
8331 
8332 
8333 
8334 
8335 
8336 
8337 
8338 
8339 
8340 
8341 
8342 
8343 
8344 
8345 
8346 
8347 
8348 
8349 
8350 
8351 
8352 
8353 
8354 
8355 
8356 
8357 
8358 
8359 
8360 
8361 
8362 
8363 
8364 
8365 
8366 
8367 
8368 
8369 
8370 
8371 
8372 
8373 
8374 
8375 



•HERE FOR R0TL, WITH THE COUNT IN Q AND THE SOURCE IN D 

ROTL: SC Q, -COUNT TO SC 

QJJ .-REPLICATE SOURCE TO Q AND D 



D.DAL. SC, 
B.FORK 



;ROTATE 

.-WRITE THE RESULT 



;HERE FOR ASHL, WITH THE COUNT IN Q AND THE SOURCE IN D 
34C: 



ASHL; 



=110 



SC Q.SXTCBYTE3, 

CLR.SD&SS, 
D31? 



EALU SC+K[.203,CLK.UBCC, 

RCCT03 Q, 

Q D,D 5AL.SC, 

St?,j7ASHL.1 



EALU SC+KC. 203, CLK.UP^C, 
RCCT03 NOT.Q, 
Q D,D &AL.SC, 
SC? 

ASHL.1: ALU D,N*Z ALU.VfcC 0, 
WRITE. DEST,J/WRD " 



D_Q, 

Q RCCT03, 

EAlU.N?,J/ASHL.4 



IDCT13 D, 
D.RCCT03, 
QQ.LEFT, SI/ZERO, 
STGNS?,J/ASHL.2 



RCCT03 0,Q 0, 
Nil ALO.V&r 0, 
J/A5HQ.8 



PUT COUNT IN SC 

TENTATIVE POSITIVE SIGN TO 

IS ALSO ZEROS TO SHIFT IN LEFT 
CLR SS FOR EASING BRANCH CONSTRAINT 
TEST SIGN OF D 

D31=0 

EALU N WILL SET IF SC .LSS. -32 

REPLICATE SIGN (POS) TO TO 

SAVE INPUT IN Q, GUESS LEFT SHIFT 

TEST RANGE OF SC 

D31=1 

TEST FOR COUNT .LSS. -32 

PUT NEGATIVE SIGN IN D AND TO 

SAVE INPUT IN Q. GUESS LEFT SHIFT 

TEST RANGE OF COUNT IN SC 

SC .EQL. 

SET CC FROM UNMODIFIED SOURCE 

STORE AS RESULT 

SC .LSS. 

RIGHT SHIFT. GET SRC BACK TO D 
AND GET SIGN TO Q 
TEST FOR HUGE SHIFT AMOUNT 

.LSS. SC .LEQ. 31 

LEFT SHIFT. STORE RESULT TEMPORARILY 

GET SIGNS FOR OVERFLOW TEST 

DISCARD SIGN FROM SOURCE 

BRANCH TO SET CONDITION CODE 

SC .GTR. 31 

SOURCE MUST BE ZERO, ELSE OVERFLOW 
BECAUSE RESULT IS ZERO. 
GO CHECK OVERFLOW 



********** ************************************* 

* Patch no. 067, PCS 01 E7 trapped to WCS 118D * 

**************************** ******************* 



ZZ-ESOAA-124.0 ; FORKS 
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; FORKS .MIC [600,12043 
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U 0234, OD03.OO3C,Cb"F0,2C00,0050,0lA9 



U 0236, 0D18, 0038. C5F0.2COO, 0050, 01A9 



U 0237, 0D03,0O28,C5F0,2C00,0050,01A9 



U 0096, ODOO,0O3C,O180.F800,000C.O1E4 



U 009E, FC01,2O3F,0*F0.F847, 0050, 0300 



8376 
8377 
8378 
8379 
8380 
8381 
8382 
8383 
8384 
8385 
8386 
8387 
8388 
8389 
8390 
8391 
8392 
8393 
8394 
8395 
8396 
8397 
8398 
8399 
8400 
8401 
8402 
8403 
8404 
8405 
8406 
8407 
8408 



HERE FOR LEFT SHIFT 

RESULT IS IN ID[T13. SOURCE IS IN Q, SHIFTED LEFT ONCE, 
32 COPIES OF SIGN ARE IN 0, AND SHIFT AMOUNT (POSITIVE) IS IN SC 



=100 

ASHL.2: ALU 0(A). LONG.N&Z ALU.V&C 0, 

D DAl.SC, 

Q_ID[T13, ,ASHQ.8 

ALU K[.883,LONG,NfcZ ALU.V&C 0, 

D_DAl.SC. 

Q_ID[T13,J/ASHQ.8 

ALU -I.LONG.NfcZ ALU.V&C 0, 
D DAL.sC. 
Q.IDCT13.J/ASHQ.8 

=;END OF CONSTRAINT FOR BEN/SIGNS 



D.EQL.O 

CLEAR N, SET Z 

GATHER BITS SHIFTED INTO SIGN POSIT! 3N 

GET BACK RESULT FOR STORING 

D.GTR.O 

CLEAR HI 1 (CONSTANT IRRELEVANT) 
GATHER BITS SHIFTED INTO SIGN POSITION 
GET BACK RESULT FOR STORING 

D.LSS.O 

SET N, CLEAR Z 

GATHER BITS SHIFTED INTO SIGN POSITION 

GET BACK RESULT FOR STORING 



HERE ON RIGHT SHIFTS 

D CONTAINS THE SOURCE. Q IS FULL OF SIGfi BITS. 
AND SC HAS THE SHIFT COUNT. UHICH IS NEGATIVE 



=011* ; 

ASHL.4: D DAL.SC, 
J7ASHL.1 



;EALU ,^0 

•SHIFT SOURCE 

•GO SET CONDITION CODES FROM RESULT 



D Q. 

ACU Q.N8Z ALU.V&C 0, 

WRITE. DEST,J/yRD 



•;EALU N=1 (COUNT .LSS. -32) 
.•RETURN SIGN BITS AS RESULT 
.-SET PSL CC ACCORDINGLY 
; STORE 
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U 0343, 0O02,AD3C,C5FF.3C00. 1486,6146 



U 0146. 0FO1.343C.75EO.F980, 0094. 8264 



U 0147. 0801, 3428, 75E0.F 980. 0094, 8264 



U 0264. 0810.0D38,0180,F908.0050,0272 



U 0265. OD0O,123C. 7580. F800. 0104, A0B6 



U 0266. 081 0,0038, C1F8.3D08, 0000, 026D 



U 0267, 001D,0020,3180,F800,0094.A21E 



8409 
8410 
8411 
8412 
8413 
8414 
8415 
8416 
8417 
8418 
8419 
8420 
8421 
8422 
8423 
8424 
8425 
8426 
8427 
8428 
8429 
8430 
8431 
8432 
8433 
8434 
8435 
8436 
8437 
8438 
8439 
8440 
8441 
8442 
8443 
8444 
8445 
8446 
8447 
8448 
8449 
8450 
8451 
8452 
8453 
8454 
8455 



.-HERE FOR ASHQ, WITH THE COUNT IN Q AND THE HIGH-ORDER LONGUORD OF SOURCE 

;RCCT03 AND IDCTOD ARE USED TO KEEP COPIES OF THE SIGN BITS 

;RCCT1J HAS THE LOW-ORDER SOURCE, AND IDCT1J HAS THE HIGH-ORDER SOURCE 



IN D 



343: 
ASHQ: 



SC Q.SXTCBYTEJ, 

lornjj), 

0. 

STATE KL". 883. 

CLR.S0&SS. 

D31? 



=110 



SC SC+KC.20D.CLK.U8CC. 
RCrTOJ Q, 
Q D,D 0, 
St?,j7ASHQ.1 



SC SC+KC.20J,CLK.UBCC, 

Qj. 

D NOT.Q, 

fUZTOl ALU. 

SC? 

ASHQ.1: 6 RCCT13, 

NSZ ALU.V&C 0. 
SIGNS7.J/ASRQ.6 



ASHQ. 2: D DAL.SC, FE SC-KC.203, 
EALU.N7.J/ASHQ.4 



IDCTOJ D, 
D RCCTT3, 
Q~0, 
J7ASHQ.7 



ALU D.XOR.Q. 

CLK.UBCC.LONG, 

SC_SC-KC403 



=;END OF SC TEST 



PUT COUNT IN SC 
SAVE HIGH-ORDER SOURCE 
TENTATIVE POSITIVE SIGN TO Q 
SET STATE 3, NO OVERFLOW YET 
EASE LATER EALU BRANCHES 
TEST SIGN OF D 

D31=0 

EALU N WILL SET IF SC .LSS. -32 
REPLICATE SIGN (POS) TO TO 
HIGH SOURCE TO Q, SIGN TO D 
TEST RANGE OF SC 

D31=1 

TEST FOR COUNT .LSS. -32 

HIGH SOURCE TO Q 

MAKE D ALL NEGATIVE SIGN BITS 

PUT NEGATIVE SIGN IN TO. TOO 

TEST RANGE OF COUNT IN SC 

SC .EQL. (NO SHIFT) 
LOW RESULT TO D 

SET Z TENTATIVELY FROM LOW PART 
SINCE THIS MAY BE A LEFT SHIFT BY A 
MULTIPLE OF 32, CHECK FOR OVERFLOW 

SC .LSS. (RIGHT SHIFT) 

HIGH RESULT TO D (IF SC IN RANGE) 

TEST FOR HUGE SHIFT AMOUNT 

.LSS. SC .LEQ. 31 
SAVE SIGNS AGAIN 
GET LOW SOURCE 
AND ZEROS TO SHIFT IN 
GO SHIFT LEFT 

SC .GTR. 31 

CALCULATE DIFF OF HIGH SRC FROM SIGN 
SET Z IF NO OVERFLOW 
REDUCE SHIFT AMOUNT BY 32 
(COMPENSATING FOR EXTRA ADD ABOVE) 



ZZ-ESOAA-124.0 ; FORKS .MIC [600.12043 
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MICR02 1L(03) 14-sJan-82 15:30:16 VAX11/780 Microcode 
I-stream decode forks : C-FORK for VAX Instructions 



Fiche 2 Frame M2 



U 021E. 0810.0138, 75E0.F908, 0104. 61C8 
U 01 C8. 0003.003C.0180.F800.1408.61C9 



U 01 C9. OC03.143C.C5E0.3D88.0080.8264 



U 0086. 0810.0038.C580.3D08.0081. 0251 
U 008E. 0001. 203C.0180.F988.0COO. 0222 

U 0222. 0810. 0038.75CO.F900, 0094. 8265 



£456 
8457 
8458 
8459 
8460 
8461 
8462 
8463 
8464 
8465 
8466 
8467 
8468 
8469 
8470 
8471 
8472 
8473 
8474 
8475 
8476 
8477 
8478 
8479 
8480 
8481 
8482 
8483 
8484 
8485 
8486 
8487 
8488 
8489 
8490 
8491 



PCS 01. FPLA 0E. WCS124 
.-HERE WITH SHIFT COUNT GREATER OR EQUAL TO 32 



Sequence 231 



Page 230 



=0 



D RCCT13, 

FE.KC.20J. 

Z? 



STATE.O(A) 



IDCT13_D,Q D. 
RCCrU 0, 

St SC+FE, 
SC?,J/ASHQ.1 



SAVE SIGNS 
GET LOW SOURCE 
PREPARE TO RE-OFFSET SC 
DID OVERFLOW OCCUR? 

Z=0, OVERFLOW 

CLEAR STATE 3. TO INDICATE OVERFLOW 

2*1. NO OVERFLOW 

SAVE LOW SOURCE AS HIGH 

CLEAR LOW SOURCE 

GET SIGNS BACK INTO D 

RE- OFFSET SC BY 32 

GO AROUND AGAIN 



HERE ON RIGHT SHIFTS 
Q CONTAINS THE HIGH PART OF THE SOURCE. D HAS THE HIGH RESULT 
SC HAS THE SHIFT COUNT. WHICH WAS ORIGINALLY NEGATIVE. 
BUT HAS HAD 32 ADDED TO IT. WE ARE BRANCHING ON THE SIGN OF THAT ADDITION 



=011* 
ASHQ.4: 



IDCT13 D, 

D RCCTT3, SC FE, 

J7ASHQ.5 



RCCT13 Q 



Q RCCT03, 

D RCCT03. 

St SC+KC.203.CLK.UBCC, 

J/SSHQ.2 



EALU N=0 

SAVE HIGH RESULT 

GET LOW SOURCE. RESTORE NEG SHIFT CT 

GO GET LOW RESULT 

EALU N=1 (COUNT .LSS. -32) 

MOVE HIGH SOURCE ONTO LOW SOURCE 



GET SIGNS FOR HIGH WORD 
AND FOR SIGNS 

SEE IF COUNT IS NOW REASONABLE 
AND LOOP UNTIL IT IS. 
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U 0251, ODOO,OO3C,C5FO,2C00,00O0,O254 



U 0254, O0O1,O03C.0180,F800,0050,O272 



U 0272. O0O1, 373C,0180,F988. 0030,0181 



U 0273, O0O1,203C,0iE0,F988,C030.OlAl 



U 0276, 0001, 203C,01E0,F988, 0030, 01A1 



U 0277, 0001, 373C,0180,F988, 0030, 0181 



U 0181. F0O0,O03F,01F0,r 847, 0020,0300 



U 0189. F0O0,O03f,O1F0,F847, 0000, 0300 



8492 
8493 
3494 
8495 
8496 
8497 
8498 
8499 
8500 
8501 
8502 
8503 
8504 
8505 
8^06 
8507 
8508 
8509 
8510 
8511 
8512 
©513 
8514 
8515 
8516 
8517 
8518 
8519 
8520 
8521 
8522 
8523 
8524 
8525 
8526 
8527 
8528 
8529 
8530 
8531 
8532 
8533 
8534 
8535 
8536 
8537 
8558 
8539 
8540 
8541 



HERE ON RIGHT SHIFTS WHEN THE SHIFT COUNT HAS BEEN REDUCED TO LESS 
THAN 32. THE HIGH RESULT HAS BEEN GENERATED AND SAVED IN IDCT1J, Q HAS 
THE HIGH SOURCE, AND D HAS THE LOU SOURCE. 



ASHQ.5: D DAL.SC, 
QIDCHJ 



ALU D,NftZ ALU.VftC 0, 
J/A5HQ.6 



;GET LOW RESULT IN D 
;AND HIGH RESULT 



;TEST LOW ORDER FOR Z 
;RE-ARRTIGE FOR STORAGE 



ENTER HERE WITHOUT BRANCH ON RIGHT SHIFTS. ON SHIFTS OF PUCES, COME HERE 
FROM ASHQ.1 BRANCHING ON SIGNS OF D AND Q, WHICH ARE IDENTICAL. 
ON LEFT SHIFTS BY A MULTIPLE OF 32 PLACES, ENTER FROM ASriQ.1, TESTING THE 
SIGN OF THE ORIGINAL SOURCE IN 031, AND TIE SIGN OF THE SHIFTED RESULT 
IN Q31. IF THEY ARE NOT EQUAL, WE MUST SET OVERFLOW. 



ASHQ.6: RCCT13 Q, 

N AMX.2 TST, 
STATE3?TJ/ASHQ.6A 



RCCT13 Q, 
N AMX.7 TST, 
Q D, 
J7ASHQ.7A 



RCCT1J Q, 
N AMX.7 TST, 
QJ>, " 
J7ASHQ.7A 



RCCT1J Q, 

N AMX.2 TST, 

STATE3?7j/ASH0.6A 



=0* * * • —————— 

ASHQ.6A.-SET.V, 

WRITE. DEST.J/WRD 



Q31 ft D31 BOTH 
SAVE HIGH PART FOR LATER STORE 
SET N FROM HIPS . "AND r * Z WITH LOW 
WAS THERE ~N L^kLIER VERFLOW? 

Q31 =0, D31 =1 

SAVE HIGH PARI FJR LATER STORE 

SET N FROM HIGH, "AND" Z WITH LOW 

COPY LOW ORDER LONGWORD 

GO SET OVERFLOW 

Q31 =1, D31 =0 

SAVE HIGH PART FOR LATER STORE 

SET N FROM HIGH, "AND" Z WITH LOW 

COPY LOW OROER LONGflRD 

GO SET OVERFLOW 

Q31 ft D31 BOTH 1 
SAVE HIGH PART FOR LATER STORE 
SET N FROM HIGH, "AND" Z WITH LOW 
WAS THERE AN EARLIER OVERFLOW? 

STATE 3=0 (OVERFLOW EARLIER) 
NOTE OVERFLC 4 III PSL 



*********************************************** 

* Patch no. 016, PCS 0181 trapped to WCS 1153 * 

*********************************************** 



WRITE.DEST.J/WRD 



-.-STATE 3=1 (NO OVERFLOW) 



ZZ-ESOAA-124.0 ; FORKS .MIC C600 .12043 
; P1W124.MCR 600,1204] 
; FORKS .MIC C600J20A3 
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I -stream decode for14-Jan-82 Ffche 2 Frame B3 Seguence 233 
MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 
I -stream decode forks : C-FORK for VAX Instructions 
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U 026D. ODOO,003C,31EO,F800.0084,A279 

U 0279. 0C0 1 03C.C5F0.2D90.0050.027A 
U 027A. 0D00.003C, 0180, F800. 0000. 0291 



U 0291, OC01.003C.C1F0.^88.0080,C298 



U 0C98, 0D10, 1738. O1C0.F910. 0000. 01A1 



U 01A1, FC00.003F.01F0.F847. 0020. 0300 



U 01A9. 0C11.C020. 0180. F900. 0070, 037E 



8542 
8543 
8544 
8545 
8546 
8547 
8548 
8549 
3550 
8551 
8552 
8553 
8554 
8555 
P556 
8557 
8558 
8559 
S560 
8561 
8562 
8563 
8564 
8565 
8566 
8567 
8568 
8569 
8570 
8571 
8572 
8573 
8574 
8575 
8576 
8577 
8578 
8579 
8580 
8581 
8582 
8583 
8584 
8585 



HERE FOR LEFT SHIFT 
D HAS THE LOW SOURCE, Q IS ZERO, 
AND SHIFT AMOUNT (POSITIVE) IS IN SC, WITH 3c ADDED TO IT. 



ASHQ.7: D DAL.SC, 
Q D. 
Sr SC-KC.40J 



RCCT21D. 
N8Z.AL0.VRC 0. 

QIDCT13 



GET LOW PART OF RESULT 
SAVE LOW SOURCE IN Q 
,'AKE SHIFT COUNT NEGATIVE 



SAVE LOW RESULT 
SET TENTATIVE Z 
LOW SOURCE TO D 
HI6H SOURCE TO Q 



D_DAL.SC 



RCCT1J D. 

N AMX.7 TST, 

D~Q, 

Q IDCT03, 

SZ SC+1 



;6ET HIGH PART OF RESULT 



SAVE HIGH RESULT 

SET CONDITION CODES FROM THAT 

HIGH SOURCE TO D 

SIGNS TO Q 

PREPARE TO TEST BITS SHIFTED INTO 31 



D DAL.SC. 
Q RCCT2J. 
STATE3? 



=0*** ; • 

ASHQ.7A:*) Q. 

SET.V, 

wRI TE.DEST.J/WRD 



GET BITS DISCAP^ED FROM HIGH WORD 

GET BACK LOW RESULT 

DID WE SEE OVERFLOW IN LONG SHIFT? 

STATE3=0, LONG Sh'IFT SAW OVERFLOW 

READY LOW RESULT 

NOTE OVERFLOW 

STORE IT BY FINAL SPECIFIER 



*********************************************** 

* Patch no. 017, PCS 01A"» trapped to WCS 1154 * 

****** ************************************ ****** 



ASHQ.8: ALU D.XOR.RCCTOJ, 
SETTCC(INST), 

DO, 
J7SPEC 



STATE3=1. NO C/ERFLOW DETECTED 
WERE BITS DISCARDED ALL SIGNS? 
SET V IF NOT 

READY LOW RESULT FOR STORING 
GO STORE ACCORDING TO SPECIFIER 



ZZ-ES0AA-124.0 ; FORKS .MIC C6OO.12043 



; P1W124.MCR 600,1 204 J 
; FORKS .MIC C600.120A] 
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I-stream decode for14-Jan-82 



Fiche 2 Frame C3 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 
I-stream decode forks : C-FORK for VAX Instructions 



Sequence 254 



U 0346, 0819,C014,0580,F800,0070,029B 



' 029B. 701D.OBOO,01FO,F804,0010,0458 

U 0458, 0000.003D,0180,F800,0000,OE6E 

i 

U 0459. 0000.003D, 01 80, F 800, 0000, 0880 

U 045A, 7000, 0B3C.01F0,F800, 0000, 0458 



U 0458, 401 5, 3814, 01C0, 3004. 4000,0461 

u 0461, F80C,0038,01F1,F857,1398,60CO 

U 0463, F80C,003B,01F1,F857,1398,6000 

U 0465, F80C, 0038, 01F1 ,F857,1398, 6000 

U 0467, 20O1,203C,0180,F801,4200,00AB 

U 0^69, 2001, 203C, 0180, F801 , 4200, OOAB 

U 046B. 2001, 203C, 0180, F801, 4200, OOAB 



8586 
8587 
8588 
8589 346 



8590 
8591 
8592 
8593 
8594 
8595 
8596 
8597 
8598 
8599 
8600 
8601 
8602 
8603 
8604 
8605 
8606 
8607 
8608 
8609 
8610 
8611 
8612 
8613 
8614 
8615 
8616 
8617 
8618 
8619 



;HERE FOR AOBLSS. A08LEQ 

; WITH THE LIMIT IN Q. AND THE INDEX IN D 



A08: 



D D+KC.1D, 
SFT.CCCINST) 



ALU D-Q, 
CLK.UBCC, 
Q IB.8DEST, 
PZ PC+1, 
18. TEST? 



=00 

A08.1 



CALL.J/IB.TBR 
CALL, J/IB. ERR 



Q IB.BDEST, 
l6.TEST?,J/A08.1 



CACHE DCLONGD. 
Q+Fl. 
CCR. 180-1. 
PC PC+1, 
ALO? 



=;END lr 18. TEST 



IRD 
IRD 



=0001 ; — 
8620 A0B.2: IRD 
8621 
8622 
8623 
8624 
8625 
8626 
8627 
8628 
8629 
8630 
8631 
8632 
8633 
8634 
8635 
8636 
8637 
8638 
8639 
8640 



PCfcVA Q, FLUSH. 18, 
J/18. FILL 



PCfcVA Q, FLUSH. 18, 

J/JB.FILL 



PCfcVA Q, FLUSH. 18, 
J/JB.FILL 

--.•END OF ALU.CC TEST 



.•INCREMENT THE INDEX 
;SET CC FROM IT 



.•COMPARE INDEX TO LIMIT 
.•PREPARE TO BRANCH ON RESULT 
;GEi BDEST 



STORE INDEX, UPDATED 
COMPUTE BRANCH DESTINATION 
DISCARD THIS OPCODE fc BDEST 
AND POINT PC TO NEXT 
SHOULD WE BRANCH? 



•;N=0, Z=0, IRO=0 
;D0 NOT BRANCH 



•;N=0, Z=0, IR0=1 
;D0 NOT BRANCH 

•;N=0, Z=1, IRO=0 (AOBLSS) 
;D0 NOT BRANCH 

•;N=0, Z=1. IR0=1 (A08LEQ) 
.•BRANCH 



•;N=1 
.•BRANCH 



•;N=1 
.-PRANCH 



Page 233 
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ZZ-ESOAA-124.0 ; FORKS .MIC £600.12043 I -stream decode for14-Jan-82 Fiche 2 Frame 03 Sequence 235 

; P1W1 24. MCR 600,1 2043 MICR02 1L(03) K-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 

; FORKS .MIC [600, 12043 I-stream decode forks : C-F0RK for VAX Instructions 
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U 03C4, 0002,E03D,0180,F980,0000,037E 



U 03D4, 7002, EB3D,01F0,F98D, 0000. 0478 



U 03D5, D811, C01 4, 01 80, F 800, 0070,0280 



U 03D6, 7002, EB3D, 01 F0,F98D, 0000, 0478 



U 0307, 081 1,C014, 0180, F8D8, 0070, 02A9 



U 02A9, 0000, 1B3C, 0180, F900. 0000, 00C7 



U 0280, 0000, DB3C, 0180, 3100, 0000, 0OC7 



U 00C7, 001 1,C008, 0180, F800, 0010, 0200 



U OOCF, 001 1,C000, 0180, F800, 0010, 02C6 



8641 
8642 
8643 
8644 
8645 
8646 
8647 
8648 
8649 
8650 
8651 
8652 
8653 
8654 
8655 
8656 
8657 
8658 
8659 
8660 
8661 
8662 
8663 
8664 
8665 
8666 
8667 
8668 
8669 
8670 
8671 
8672 
8673 
8674 
8675 
8676 
8677 
8678 
8679 
8680 
8681 
8682 
8683 
8684 
8685 
8686 
8687 
8688 
8689 
8690 
8691 
8692 
8693 
8694 



.-HERE FOR AC8B, ACBW, ACBL 

; FIRST OPERAND (LIMIT) IS IN Q, SECOND OPERAND (ADDEND) IS IN D 



3C4: 
ACS: 



3D4: 



RCCTO: Q.SXTCINST.DEP3, 
CALLJ7SPEC 



RCCT13Q.SXTCINST.DEP3, 
Q I8.B&EST, 
PZ PC+2, 
IB.TEST?,CALL,J/ACB 8 



3D5: 



3D6: 



D D+LC, 
CCR.IB.SPEC, 
SET.CC(INST), 
J/AC8.1 



RCCT13 Q.SXTCINST.DEP3, 
Q IB.B5EST, 
Pr.PC+2, 
IB.TEST?,CALL,J/ACB.8 



307: 



D D+LC, 
CCR.IB.SPEC, 
R(PRN) ALU, 
SZT.CC7INST) 



CALL SITE FOR INDEX SPECIFIER EVAL 
SAVE LIMIT, SIGN EXTENDED 
60 EVALUATE INDEX SPECIFIER 

RETURN HERE WITH MEMORY OPERAND 
SAVE ADDEND, SIGN EXTENDED 
GET BDEST FROM IB 
STEP PC PAST WORD DISPLACEMENT 
GO WAIT FOR IT IF NECESSARY 

INDEX IS IN MEMORY 

INDEX + ADDEND 

DISCARD 2ND BYTE OF BDEST 

SET PSL CC FROM SUM 

GO STORE BACK IN MEMORY 

RETURN HERE WITH REGISTER OPERAND 

SAVE ADDEND, SIGN EXTENDED 

GET BDEST FROM IB 

STEP PC PAST WORD DISPLACEMENT 

GO WAIT FOR IT IF NECESSARY 

INDEX IS IN A REGISTER 
INDEX + ADDEND 
DISCARD 2ND BYTE OF BDEST 
STORE AS FINAL RESULT 



=;END OF SUBROUTINE CONSTRAINT STARTED AT ACS 



LC RCCTO], 
AL0.N?,J/ACB.2 



ACB.1 



=0111 
ACB.2: 



CACHE DCINST.DEP3, 
LC RCrTOD, 

alO.n? 



ALU L'-' ■:- 1 , 
DT/lNST.DEP,CLK.UBCC, 
J /ACS. 3 



RECOVER LIMIT 

TEST SIGN OF ADDEND 



SI ORE UPDATED INDEX 
GCT LIMIT BACK 
TEST SIGN OF ADDEND 

ADDEND .GEO. 
CO^'RE INDEX TO LIMIT 
RF _T OF COMPARE TO ALU N 
GO i EST IT 



********************************* ************** 

» Patch no. 060, PfS 00C7 trapped to WCS 1186 * 

*********************************************** 



ALU D-LC, 
DT/TNST.DEP,CLK.UBCC 



ADDEND .LSS. 
COMPARE INDEX TO LIMIT 



E 3 

ZZ-GS0AA-124.0 ; FORKS .MIC C600, 12043 I-stream decode forK-Jan-8? Fiche 2 Frame t'3 Seguence 236 

; P1U1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS1 24 Page 

; FORKS .MIC [600. 12043 I-stream decode forks : C-FORK for VAX Instructions 

;HERE TOR ACS, AFTER COMPARING THE UPDATED INDEX TO THE LIMIT 



235 



U 02C6. C015,3B14,01C0.F804,4000,0367 
U 0367. 2001.203C.0180.F801,4200,OOA8 
U 036F. F80C, 003B.01 F1.F857.139B.6000 



U 02D0. C015,3B14,01C0,F804.4000.0497 
U 0497, F80C.0038.01F1.F857.139B.6000 
U 049F, 2001.203C.0180.F801.4200.00AB 

U 0478. 0000. 003D.0180.F800. 0000. 0E6E 
U 0479. 0000, 003D. 01 80. F 800. 0000. 0880 

U 047A. 7000. 0B3C, 01 F0.F800. 0000. 0478 
U 047B, D010.003A, 0180. F908. 0010, 0001 



8695 

8696 

8697 

8698 

8699 

8700 

8701 

8702 

8703 =0111 

8704 

8705 

8706 

8707 

8708 

8709 

8710 

8711 ACB.3: 

8712 

8713 

8714 

8715 

8716 =0111 

8717 

8718 

8719 

8720 

87 t 

872. 

8723 

8724 

8725 =00 

8726 AC8.8 
8727 



8728 
8729 
8730 
8731 
8732 
8733 
8734 
3735 
8736 
8737 
8738 



Q Q+PC, 
CCR.IB.OPC, 
PC PC+1 , 
ALO.N? 



PCfcVAJi, FLUSH. IB.J/IB.FILL 
IRD 



Q Q+PC. 
CCR.J8.0PC, 
PC PC+1, 
ALO.N? 



IRD 



•; ADDEND IS NEGATIVE 
.-CALCULATE BRANCH ADDRESS 
.•DISCARD OPCODE 
;AND MOVE PC TO NEXT 
;TEST COMPARISON OF INDEX WITH LIMIT 

■;ALU.N=0 (INDEX .GEO. LIMIT) 
.•BRANCH 

■;ALU N=1 (INDEX .LSS. LIMIT) 
;NO BRANCH 



-.•ADDEND IS POSITIVE 
.•CALCULATE BRANCH ADDRESS 
.•DISCARD OPCODE 

.-TEST COMPARISON OF INDEX WITH LIMIT 

— ;ALU.N=0 (INDEX .6TR. LIMIT) 
;NO BRANCH 



;ALU N=1 (INDEX .LEQ. LIMIT) 
.-BRANCH 



PCftW Jl. FLUSH. IB.J/IB. FILL 
.-HERE IS SUBROUTINE USED BY ACS TO GET BRANCH DISPLACEMENT 
CALL.J/IB.TBR 
CALL, J/IB. ERR 



Q I8.BDEST, 
IB.TEST?,J/AC8.8 



.-TRY AGAIN TO GET BDEST 
.-LOOP WAITING 



ALU_RCCT13.CLK.UBCC. 

CLR.I8.SPEC, 

RETURN1 



;GET ADDEND TO LC, TEST ITS SIGN 
.-DISCARD 1ST BYTE OF BDEST 



U 0345. 0001,003C,0180.F980.0000,02EE 



U 02EE, 7881. 283C,01F0,F804, 0082, 04A0 



F 3 

ZZ-ESOAA-124.0 ; FORKS .MIC [600,12043 I-stream decode for14-Jan-82 Fiche 2 Frame F3 Seguence 237 

; PI W1 24. MCR 600.12043 MICR02 1L(03) H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS 124 *>~ 
; FORKS .MIC [600,1204] I-stream decode forks : C-F0RK for VAX Instructions 



acje 



236 



U 04A0, 0000, 0030,0180, F800,0000,OE64 
U 04A1. 0000, 003D,0180,F800,0000, 0880 

U 04A2, 70O0,0B3C,01F0,F80O,000O,04A0 



U 04A3. 0603.A03C. 7180, F900, 0094, 42F1 



U 02F1, 001 1,0914, 0180, F800, 0200, 04A8 
U 04A8, 0OO0,813C, 0180, 4000, 0000,0100 
U 04A9, 0000,813C, 01 80, 5000,0000, 01 DO 
U 04AA, 0000,813C.0180,5000,0000,01DO 
U 04AB, 0000, 813C, 0180, 7000, 0000, 01D0 



8739 
8740 
8741 
8742 
8743 
8744 
8745 
8746 
8747 
8748 
8749 
8750 
8751 
8752 
8753 
8754 
8755 
8756 
8757 



HERE FOR BBS, BBC, BBSS, BBCS, BBSC, BBCC, BBSSI, BBCCI 
WHEN BIT TESTED IS NOT IN A RE6ISTER 
D CONTAINS THE BASE ADDRESS, Q HAS THE BIT POSITION 



345: ; 

BB: RCCTODJ) 



SC Q, 

D.B.RIGHT2, 
Q IB.8DEST, 
Pt.PC+1 . 
IB. TEST? 



*********************************************** 

* Patch no. 062, PCS 02EE trapped to WCS 1188 * 
*********************************************** 



;SAVE BASE OF BIT TABLE 



;L0W BITS OF POSITION TO SC 
.•DISCARD BITS OF POSITION 



=00 



8758 BB.1: 

8759 

8760 

8761 

8762 

8763 

8764 

8765 

8766 

8767 

8768 

8769 

8770 

8771 

8772 

8773 

8774 

8775 

8776 

8777 

8778 

8779 

8780 

8781 

8782 

8783 

8784 

8785 

8786 

8787 

8788 

8789 

8790 

8791 



CALL.J/IB.TBM 
CALL.J/IB.ERR 



Q IB.3DEST. 
IS.TEST7.J/BB.1 



CLR.IB.SPEC, 

D D. RIGHT, 

ADJ Q.OXTCBYTEJ, CLK.UBCC, 

LC RCCT03, 

SC_SC.ANDNOT.KC.FFF83 



DISCARD BDEST FROM IB BYTE1 
POSITION NOW RIGHT 3 PUCES 
TEST BDEST FOR (HACK CASE) 
READY BASE ADDRESS 
GET ONLY BIT POSITION IN BYTE 



=;END OF 18. TEST 
F0.PA.62: 



VA D+LC, 
IR2-1? 



.•COMPUTE BYTE ADDRESS OF BIT TO TEST 
.-WHAT KIND OF REFERENCE? 



:*00 



DCBYTED.CACHE, Z?, J/BB.2 
6C8YTEJ_CACHE.WCHK, 11. J/BB.2 
DCBYTEJ.CACHE.WCHK, Z?, J/BB.2 
DC8YTEJ.CACHE.LK, Z?, J/BB.2 



-;N0 MODIFICATION 

-;SET 

-.•CLEAR 

-; INTERLOCK 



U 01D0, 0001 ,0924, 0180, F800,0010,04C8 

U01D1. C801,090C,0180,F804,4000,04B8 
U 04B8, F80C,003B,01F1.F857,139B,6000 
U 0489, 0000, 803C0180, 3000, 0000,0062 
U 048A, 0000, 803C, 0180,3000, 0000, 0062 
U 0488. 0000. 803C, 01 80. 3800, 0000, 0062 
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ZZ-ESOAA-124.0 ; FORKS .MIC C600.1204D I-stream decode for14-Jan-82 Fiche 2 Frame G3 Seguence 238 

; P1U1 24. MCR 600.1204D MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01 , FPLA OE, WCS124 Page 237 

; FORKS .MIC C600,1204D I-stream decode forks : C-FORK for VAX Instructions 



U 04C8, C01 5,3814,01 C0,F804,4000,02E9 

U 04C9, 0801 ,000C, 01 80, F 800, 0000, 0322 

U 04CA, 0801 ,000C,0180,F800,0000, 0322 

U 04CB, 0801,000C, 01 80, F 800, 0000, 02F0 



U 02F0, C015,BB14,01C0,3804,4000,02E9 



8792 
8793 
8794 
8795 



.-HERE FOR BB GROUP, WITH BVTE TO BE TESTED IN D, 
; AND BIT NUMBER OF BIT TO TEST IN SC 



=0 



8796 BB.2: 

8797 

8798 

8799 

8800 

8801 

8802 

8803 

8804 

8805 =*00 

8806 

8807 

8808 

8809 

8810 

8811 

8812 

8813 

8814 

8815 

8816 

8817 

8818 =*00 

8819 BB.3: 
8820 

8821 

8822 

8823 

8824 

8825 

8826 

8827 

8828 

8829 

8830 

8831 

8832 

8833 

8834 

8835 

8836 

8837 

8838 

8839 

8840 

8841 

8842 

8843 B8.4: 

8844 

8845 

8846 



; ;BDEST .NE. 

ALU.D.ANDNOT.MASK, ;TEST SELECTED BIT 

CLK.UBCC, 

IR2-1?, J/BB.3 



D DCINST.DEP3MASK, 
CCR.IB.OPC, PC PC+1, 
IR2-1? 



IRD 

CACHE.DCBYTED, J/iRD 
CACHE.DCBYTEJ, J/IRD 
CACHE.DCBYTEJ.LK, J/IRD 



Q Q+PC, 
CrR.IB.OPC. 
PC PC+1, 
AL0?,J/88.5 



80EST = 

DON'T TEST - JUST ALTER 
GET RID OF OPCODE SPECIFIER 
CHECK REFERENCE TYPE 

NO MODIFICATION 

RATHER POINTLESS INSTRUCTION, WHAT? 

SET 

WRITE BYTE AND FALL THROUGH 

CLEAR 

WRITE BYTE AND FALL THRU 

INTERLOCK 

WRITE BYTE, RELEASE INTLK & FALL THRU 



;N0 MODIFICATION 

.•COMPUTE BRANCH ADDR 

.•DISCARD OPCODE SO NEXT IS READY 

.•POINT PC PAST IT 

.•DECIDE WHETHER TO BRANCH 



D DCINST.DEPJMASK. 
J788.4 



-;SET 
;D0 IT TO IT 



D DCINST.DEPJMASK, 
J7BB.4 



-.-CLEAR 
;D0 IT TO IT 



D_DCINST.DEP3MASK 



CACHE DCBYTE3.LK, 
Q Q+Pt\ 
CCR.IB.OPC, 
PC PC+1, 
AL0?,J/BE.5 



•.•INTERLOCK 
•WRITE BACK, CLEARING THE LOCK 



CACHE DCBYTED, 
Q+Pt\ 
CCR.IB.OPC. 
PC PC+1, 



.-WRITE BACK 



U 0322, C015,BB14,01C0,3004,4000,02E9 
U 02E9, 2001,203C,0180,F801,4200,OOAB 
U 02EB, F8OC,003B,01F1,F857,139B,6000 
U 02ED, F80C,003B,01F1,F857,139B,6000 
U 02EF, 20O1,203C, 0180. F801, 4200, 00A6 



H 3 

ZZ-ESOAA-124.0 ; FORKS .MIC C600. 12043 I-stream decode for14-Jan-82 Ffche 2 Frame H3 Seguence 239 

; PI U1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 238 

; FORKS .MIC [600,12043 I-stream decode forks : C-FORK for VAX Instructions 



8847 
8848 

8849 =1001 

8850 B8.5: 
8851 

8852 
8853 
8854 
8855 
8856 
8857 
8858 
8859 



ALU? 

PCfcVAJl.FLUSH.JB.J/IB.FILL 

IRD 

IRD 

PC&VAJ3, FLUSH. IB, J/18. FILL 



-;Z=0, BBS 
.•BRANCH 

~;Z=0, BBC 
•;Z=1, BBS 
-;Z=1, BBC 



ZZ-ES0AA-124.0 ; FORKS .MIC [600,12043 
; P1U124.MCR 600.12043 MICR02 1L(03) 
; FORKS .MIC [600,12043 



I 3 

I-stream decode for14-jan-82 Ffche 2 Frame 13 Seguence 240 
14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 
I-stream decode forks : C-FORK for VAX Instructions 



239 



U 0383, 081D,2001,0180,F800.0000.037E 
U 0393, 001D,C008,0180.F800,0070,0330 
U 0330. 0023, FA3C. 01 CO, F800, 0000,0028 

U 0028. 003B,C014,05CO,F800,0000,OOCE 
U 0029, 0015, 2014,0180, F800. 0200,013C 

U 002C, 001 5,2014, 0180,F800, 020C013C 



8860 
8861 
8862 
8863 
8864 
8865 
8666 
8867 
8868 
8869 
8870 
8871 
8872 
8873 
8874 
8875 
8876 
8877 
8878 
8879 
8880 
8881 
8882 
8883 
8884 
8885 
8886 
8887 
8888 
8889 



"HERE FOR CASEB AND CASEU 

; THE FIRST OPERAND (SELECTOR) IS IN Q. THE SECOND (BASE) IS IN D 



383: 

CASEB: 

CASEW: 



393: 



D Q-D. 
CAtUJ/SPEC 



ALU D-Q-1 , 
SET.CC(INST) 



Q Q.OXT[INST.DEPJ.LEFT, 
P5L.CC? 



;CALL SITE FOR LIMIT SPECIFIER EVAL 

.-COMPUTE TMP AS SELECTOR-BASE 
;60 EVALUATE LIMIT SPECIFIER 

.-RETURN HERE FROM SPECIFIER EVALUATION 

.-COMPARE TMP TO LIMIT 
.-SET PSL CC ACCORDINGLY 



.-MULTIPLY TMP BY 2 FOR ADDRESSING BDEST 
.-DECIDE WHETHER TO BRANCH 



=10*0 
F0.ABS.28: 



Q D.0XTCINST.DEP3+KC.13.LEFT. 
J78R 



VAJJ+PC.J/CASE.1 
F0.ABS.2C: 

VAJ3+PCJ/CASE.1 
=;END OF PSL.CC TEST 



-;Z=0, C=0 (TMP GTRU LIMIT) 
;(LIMIT+1)*2 GIVES LENGTH OF BDEST LIST 
.-BRANCH PAST THE LIST 

:Z=0, C=1 (TMP LSSU LIMIT) 
;GET ADDRESS OF SELECTED BDEST 



•;Z=1, C=0 (TMP EQL LIMIT) 



J 3 
I-stream decode for14-Jan-82 



ZZ-ESOAA-124.0 ; FORKS .MIC C600J2043 

; PI U1 24. MCR 600.120411 

; FORKS .MIC [600. 12043 I-stream decode forks : C-FORK for VAX Instructions 



_ Sequence 241 

MICR02 1L(03) 14-Jan~82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 



Fiche 2 Frame J3 



Page 240 



U 030E. 081D,2001,0180.F800,0000.037E 

U 031E, 001D,C008,01A8.F800,0070,036B 

U 0368, 0015,3A14,0180,F800,0200,0138 

U 0138, 0039,0014, 05CO,F8OO,OOOO.00CE 

U 0139, 0000,403C, 01 80, 4000, 0000,036D 
U 01 3C, 0000, 403C, 01 80, 4000, 0000, 036D 

U 036D, 2016,4014. 0180, F801, 4200, 00AB 



8890 
8891 
8892 
8893 
8894 
8895 
8896 
8897 
8898 
8899 
8900 
8901 
8902 
8903 
8904 
8905 
8906 
8907 
8908 
8909 
8910 
8911 
8912 
8913 
8914 
8915 
8916 
8917 
8918 
8919 
8920 
8921 



'HERE FOR CASEL 

; THE FIRST OPERAND (SELECTOR) IS IN Q, THE SECOND (BASE) IS IN D 



30E: ; 

CASEL: D Q-D, 

CAlL.J/SPEC 



31E: 



=10*0 



ALU D-G-1 , 
SET.CC(INST), 
Q Q.LEFT 



VA Q+PC, 
PSl\CC? 



Q D+KC.13.LEFT, 
J78R 



DCW0RD3 CACHE, 
J/CASE.2 



CASE.1: DCWORD.I.CACHE 
=;END OF PSL.CC TEST 



CALL SITE FOR LIMIT SPEC EVALUATION 
COMPUTE TMP AS SELECTOR-BASE 
60 EVALUATE LIMIT SPECIFIER 

RETURN HERE FROM SPECIFIER EVALUATION 

COMPARE TMP TO LIMIT 

SET PSL CC ACCORDINGLY 

SHIFT TMP FOR ADDRESSING BDEST LIST 



ADDRESS SELECTED BDEST 
DECIDE HOW TO BRANCH 

Z=0, C=0 (TMP GTRU LIMIT) 

(LIMIT+1)*2 GIVES LENGTH OF BDEST LIST 

BRANCH PAST THE LIST 

Z=0, C=1 (TMP LSSU LIMIT) 
GET SELECTED BDEST 



;Z - 1# c=0 (TWP EQL L iMIT) 

;GET SELECTED BDEST 



CASE. 2: PCfcVA D.SXTCWORDJ+PC, 
FLUSHTlB,J/IB.FILL 



.•BRANCH TO SELECTED ROUTINE 



ZZ-ES0AA-124.0 ; FORKS 
; P1W124.MCR 600-12043 
; FORKS .MIC C600. 12043 



K 3 
.MIC [600,12043 I-stream decode for14-Jan-82 Fiche 2 Frame K3 Sequence 242 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, fPLA 0E, WCS124 Page 
I-stream decode forks : C-FORK Specifier Evaluation Subroutine 



241 



U 0300. 0C0O,O03E,O1EO,F800, 0000, 0010 

U 0301. 0000.003C.0180.F800.0000.0001 

U 0302, OF01,203E.01EO,F990, 0000,0010 

U 0303, 0000,003C, 0180, FSO0, 0000, 0001 

U 0304, 0800,003E,01E0,F800, 0000,0012 

U 0324. C001.C03C.0180.F8DC.4000.0062 

U 0305. 0000. 003C, 01 80, F 800, 0000. 0001 



8922 
8923 
8924 
8925 
8926 
8927 
8928 
8929 
8930 
8931 
8932 
8933 
8934 
8935 
8936 
8937 
8938 
8939 
8940 
8941 
8942 
8943 
8944 
8945 
8946 
8947 
8948 
8949 
8950 
8951 
8952 
8953 
8954 
8955 
8956 
8957 
8958 
8959 



.TOC " I-stream decode forks 
Control passes to this point b 



C-FORK Specifier Evaluation Subroutine" 



y "CALL, J/ SPEC" or from any 'WRITE. DEST" state. 

LA, L8 = Register selected by bits <3:0> of 18 byte 1 

D = Result to be stored, if WRITE. DEST; otherwise returned in 

Q = Instruction stream data, if any 

If the specifier evaluated is of 'wEAD" or 'MODIFY" type, control returns 
at the call site ored with 10, for literal and memory operands, or the 
call site ored with 12 for register operands. If 'WRITE" type, control 
passes to IRD to perform the next instruction. 



300: 
WRD: 
C.FORK: 



301: 
302: 

303: 
304: 



324: 
URD.R: 



305: 



r£turRi6 



J/RSVflOD 



RCCT23 Q, 
Q D,D 0, 
RETURRIO 



; SHORT LITERAL 
.•RETURN LITERAL IN D 



; RESERVED MODE 



.•QUAD/DOUBLE SHORT LITERAL 
.•RETURN OLD D IN Q, REST IS ZERO 



J/RSVMOD 



Q D.D LA, 
RPTURR12 



.•RESERVED MODE 
•REGISTER. TO READ 



R(PRN) D.DT/INST.DEP. 

CLR.I8.0PC. 

PC PC+1.J/IRD 



REGISTER, TO WRITE 
GO TO NEXT INSTR 



J/RSVMOD 



ZZ-ESOAA-124.0 ; FORKS .MIC C600J20AJ 



; P1W124.MCR 600-12043 
; FORKS .MIC [600,1204] 



L 3 

I-stream decode for14-Jan-82 



Fiche 2 Frame L3 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 
I-stream decode forks : C-FORK Specifier Evaluation Subroutine 



Sequence 243 



Page 242 



U 0306, 0000,003C,01EO,F990,0000,036E 

U 036E, 0800,003E,0180,F860,0000,0012 
U 0326, 0001 ,003C, 0180, F8D8, 0000. 0375 
U 0375. 0810. 0038. 0180. F908. 0000.0392 

U 0392. C001,003C,0180,F8E4, 4000, 0062 
U 0307, 0000, C03C0180.F8O0, 0000,0001 

U 0308, 0000,083C,01EO,F800,0200,02D2 
U 0309, 0018,0018,1 580, F8D8, 0000, 0308 

U 030A, 0018.0804.15EO,F8D8,0200,02D2 
U 0308, 0000. 003C, 01 E0.F800. 0200, 0394 



U 0394, 0018,0018,1 180, 40D8, 0000. 03C7 



8960 
8961 
8962 306: 



8963 
8964 
8965 
8966 
8967 
8968 
8969 
8970 
8971 
8972 
8973 
8974 
8975 
8976 
8977 
8978 
8979 
8980 
8981 
8982 
8983 
8984 
8985 
8986 
8987 
8988 
8989 
8990 
8991 
8992 
8993 
8994 
8995 
8996 
8997 
8998 
8999 
9000 
9001 
9002 
9003 
9004 
9005 
9006 
9007 
9008 
9009 
9010 
9011 
9012 



.-GENERAL SPECIFIER (C-FORK) EVALUATION. CONTINUED 

RCCT23.LA, '-QUAD REGISTER, TO READ 

Q.D 

F0.A8S.36E: 



326: 



D JUPRN+1), 
RETURN12 



R(PRN)J) 
6.RCCT13 



307: 



308: 
C.DR: 



309: 
30A: 



R(PRN+1) D, 
CLR.I8.0PC, 
PC.PC+1.J/IRD 



J/RSVMOD 



;HIGH ADDRESS PART TO D 

;QUAD REGISTER. STUFF LOW ADDRESS PART 

•GET HIGH ADDRESS PART 

•NOW STORE HIGH ADDRESS PART 



VA..LA, 

Q !5, 

D*TA.TYPE?,J/C.M 



;(R) 



R (PRN) LA+KCSP1 . CONJ . RL06 , 
J/C.DR 



R(PRN) LA-KCSP1.CON3.RL0G, 

VA ALUT 

Q 5, 

DATA. TYPE?, J/C.M 



;(R) + UPDATE THE STACK POINTER 
;THEN LOAD UN-INCREMENTED ADDR 



;-<R) AUTO DECREMENT 
; USE DECREMENTED ADDR 



308: 



VA,LA, 
Q 5 



8(R)+ AUTO INCREMENT OEFERED 
SAVE DATA WHILE GETTING INDIRECT 



*********************************************** 

* Patch no. 054, PCS 0308 trapped to WCS 117C * 

************* a ********************************* 



'8S.394: 



D [LONG J CACHE, 
R(PRN) CA+KC.43.RL0G, 
J/C.DF 



GET INDIRECT WORD 
WHILE UPDATING REGISTER 
THEN JOIN COMMON CODE 



M 3 

ZZ-ESOAA-124.0 ; FORKS .MIC [600,12043 I-stream decode for14-Jan-82 Fiche 2 Frame M3 Sequence 244 

; PI U1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS1 24 Page 243 

; FORKS .MIC [600, 12043 I-stream decode forks : C-FQRK Specifier Evaluation Subroutine 



U 030C, 0060,C03D,0180,F988,0000.047E 



U 036C, OCT. 0814, 0180, F800, 0200, 02D2 



U 0300, DOO5, t , 814.01E0,F8OO.02O0.02D2 



U 030F. D005,2014,01EO,F800,0200,03BE 



U 03BE, 0000. 003C, 01 80, 4000, 0000, 03C7 



U 03C7, 0C01.083C. 0180, F800, 0200, 02D2 



9013 
9014 
9015 
9016 
9017 
9018 
9019 
9020 
9021 
9022 
9023 
9024 
9025 
9026 
9027 
9028 
9029 
9030 
9031 
9032 
9033 
9034 
9035 
9036 
9037 
9038 
9039 
9040 
9041 
9042 
9043 
9044 
9045 



.•GENERAL SPECIFIER (C-FORK) EVALUATION, CONTINUED 
30C: 



RCCT73 LA.CTX, 
CALL,J7ASPC 



36C: 



30D; 



30F: 



Q, 

V* D+LC, 

DATA. TYPE?, J/C.M 



VA Q+LB.PC, 
Q JJ, 

CCR.I8.SPEC, 
DATA. TYPE?, J/C.M 



Q D.VA QHJ3.PC, 
CCR.I8.SPEC 



INDEX MODE, CONTEXT SHIFT INDEX 
AND 60 EVALUATE BASE OPERAND ADDRESS 

RETURN HERE WITH BASE OPERAND ADDRESS 
RESTORE DATA TO BE STORED 
COMPUTE INDEXED ADDRESS 
GET OR STORE NORMAL OR QUAD 



D(R) DISPLACEMENT MODE. 
SAVE OLD D 

DISCARD THE SPECIFIER 
GO GET THE OPERAND 



3D(R) DISPLACEMENT DEFERED 
DROP THE SPECIFIER 



*********************************************** 

* Patch no. 055, PCS 030F trapped to WCS 117D * 

*********************************************** 



F0.A8S.38E: 

DCLONG3.CACHE 



;GET INDIRECT, GO USE IT AS ADDR 



CDF: 



VA D, 

D 8, 

DATA. TYPE?, J/C.M 



;USE POINTER AS ADDRESS 
;GET DATA TO STORE BACK TO D 



N 3 

ZZ-ESOAA-12* ; FORKS .MIC [600. 12043 I-stream decode for14-Jan-82 Fiche 2 Frame N3 Seguence 245 

; PI W1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS1 24 Page 244 

; FORKS .MIC C600, 12043 I-stream decode forks : C-FORK Specifier Evaluation Subroutine 

9046 ;HERE ARE VARIANTS OF THE C-FCPK ENTRY POINTS FOR R=PC 
9047 



U 0314. 0000,003C,0180,F800.0000.0001 

U 0315. 0000.003C.0180.F800.0000.0001 

U 0316. 0000,003C,0180,F300,OOOC,0001 

U 0317. 0000.003C.0180.F800.0000.0001 

U 0318. 0000,003C,0180,F800,0000,0001 

U 0319. DC00.003E.01EO.F800.0000.0010 






U 031A, 0000. 003C. 01 80, F 800. 0000, 0001 

U 031B, 0001. 283C, 01 E0,F800, 0200, 02D2 

U 031 C. 0000, 003C, 01 80. F 800, 0000, 0001 

U 031D, 0000, 003C, 01 80, F800, 0000, 0001 



U 031 F, F001,2B3C,01FO.F98E,0000,04DO 



9048 314: 

9049 

9050 

9051 315: 

9052 

9053 

9054 316: 

9055 

9056 

9057 317: 

9058 

9059 

9060 318: 

9061 

9062 

9063 319: 

9064 

9065 

9066 

9067 

9068 ; *********************************************** 

9069 ; * Patch no. 047, PCS 0319 trapped to WCS 116F * 

9070 * *********************************************** 
9071 

9072 31 A : 



J/RSVMOD 
J/RSVMOD 
J/RSVMOD 
J/RSVMOD 
J/RSVMOD 



D Q.Q D, 

CtR.lB.SPEC, 

RETURN10 



PC REGISTER MODE 

ILLEGAL REGISTER MODE, R=PC 

PC QUAD REGISTER MODE 

ILLEGAL QUAD REGISTER MODE, R=PC 

(PC) 

(PC)+ IMMEDIATE 
DONE 



9073 

9074 

9075 318: 

9076 

9077 

9078 

9079 

9080 31 C: 

9081 

9082 

9083 31 D: 

9084 

9085 

9086 31 F: 

9087 

9088 

9089 

9090 

9091 

9092 

9093 

9094 

9o95 



J/RSVMOD 



VA Q.O D, 
CLR.I87SPEC, 
DATA. TYPE?, J/C.M 



J/RSVMOD 
J/RSVMOD 



;-(PC) 

;S(PC)+ ABSOLUTE MODE 

•INDEX MODE, R=PC 
;NESTED INDEX MODE, R=PC 



RCCT13 Q, 
Q IB. DATA, 
CCR.I8.C0ND, 
PC PC+4, 
I87TEST?,J/C.IQ 



;QUAD IMMEDIATE 

;GET SECOND PART INTO Q 

;PUSH PC PAST SECOND PART 



*********************************************** 

* Patch no. 058, PCS 031 F trapped to WCS 1184 * 

************************************************ 



B 4 

ZZ-ESOAA-124.0 ; FORKS .MIC C60O, 12043 I-stream decode forK-Jar -82 Fiche 2 Frame B4 Seguence 246 

; P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 245 

; FORKS .MIC C600, 12043 I-stream decode forks : C-FORK Specifier Evaluation Subroutine 



U 0387, 0000,003D,0180,F800,0000,OEEO 



U 037C, 0000,00;d,0180,F800.0000,OE64 
U 037D, 0000,0030,0180, F800. 0000, 0B80 



U 037E. F0OO,003F,O1F0,F847,0O00,0300 
U 037F, 0000, 003C. 0180, F800.0000.04F8 



U 0341, C000.C03C, 0180, 3004,4000, 0062 



U 0344, 0010.0038,01 80, F 938, 0200, 02D3 



9096 
9097 
9098 
9099 
9100 
9101 
9102 
9103 
9104 
9105 
9106 
9107 
9108 
9109 
9110 
9111 
9112 
9113 
9114 
9115 
9116 
9117 
9118 
9119 
9120 
9121 
9122 
9123 
9124 
9125 
9126 
9127 
9128 
9129 
9130 
9131 
9132 
9133 
9134 
9135 
9136 
9137 



.•SPECIAL 
387: 



CFORK STATES 
CALL.J/EH.USEQ 



;HERE WE SHOULD NEVER 6ET 

-."UNUSED" LOCATION FOUND IN IB ROM 



*********************************************** 

* Patch no. 046, PCS 0387 trapped to WCS 116E * 

******************************************* a*** 



37C: 
37D: 



37E: 

SPEC: 



CALL, J/IB. TBI 
CALL, J/IB. ERR 



LAB R(SP1), 

Q I8.DATA, 

crR.I8.C0ND, 

PC PC+N, 

MCT/ALLOU.IB.READ, 

SUB/SPEC, J/C. FORK 



•;IB HAD NO DATA BECAUSE OF 
;TB MISS. REFILL IT 

■;IB HAD NO DATA BECAUSE OF 
;ANY ERROR. FIND OUT WHAT HAPPENED 

-;IB IS WAITING FOR DATA 
.•STALL 



37F: 



J/INT.B 



•;HERE IF INTERRUPT REQUEST \JP 
;60 BACKUP REGISTERS, SERVE INTERRUPT 



HERE TO WRITE BACK THE RESULT OF AN INSTRUCTION WITH A MODIFY DESTINATION. 
ASSIGNED AN ADDRESS ON CFORK BECAUSE MANY 2-OPERAND INSTRUCTIONS ARE 
EXECUTED BY THE SAME CODE AS THE 3-OPERAND COUNTERPART, AND CONCLUDE WITH 
THE WRITE. DEST OPERATION, WHICH EVALUATES THE THIRD SPECIFIER IN THE 
3-OPERAND FORM, AND COMES HERE FOR THE 2-OPERAND FORM. 



341: 
STORE: 



CACHE D.INST.DEP, 

CLR.I8.0PC, 

PC PC+1,J/IRD 



STORE RESULT BY INSTR DATA TYPE 
MOVE NEXT INSTR INTO IB BYTE 
DO NEXT INSTRUCTION 



.-HERE IS THE SAME FUNCTION FOR QUAD/DOUBLE OPERATIONS 



344; 

STOR.Q: VA RCCT73, 
J/t\WQ 



RELOAD OPERAND ADDRESS. WHICH GOT 
INCREMENTED IN FETCHING OPERAND 



C 4 

ZZ-ESOAA-124.0 ; FORKS .MIC C600, 12043 I-stream decode for14-Jan-82 Fiche 2 Frame C4 Sequence 247 

; P1W1 24. MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS1 24 Page 

; FORKS .MIC C60O. 120*3 I-stream decode forks : C-FORK Specifier Evaluation Subroutine 



246 



•■: 02D2, C000,C03C ,0180,3004,4000,0062 
U 02D3, 0000,C03C, 0180,3000, 0000,03F8 

U 02D6, 0000,C03E,0180,5800,0000,0010 
U 0LD7. 0000, C03C, 01 80, 5800, 0000, 03D2 

U 03D2. 0001,007C,1580,BD93,0000,03E2 
U 03E2. 0000, 003E, 01 80, 4000, 0000, 0010 

U 03F8. 0810, 0038,0180, F 90S. 0000, 03FD 
U 03FD, C00O,O03C, 01 80, 3004, 4000, 0062 

U 04r0, 0000, 003D, 0180, F800, 0000, 0E64 
U 04D1. 0000,0030, 0180, F800, 0000, 0880 

U 04D2. FOOO,OB3C,01F0,F80O,00O0,04D0 
U 04D3, DCOC,003E,01E0,F800, 0000, 0010 



9138 

9139 

9140 =010 

9141 

9142 

9143 

9144 

9145 

9146 

9147 

9148 

9149 

9150 

9151 

9152 

9153 

9154 

9155 

9156 

9157 

9158 

9159 

9160 

9161 

9162 

9163 

9164 

9165 

9166 

9167 

9168 

9169 



.-HERE FOR THE SECOND AND SUBSEQUENT STATES OFF C-FORK SUBROUTINE 

=01 C 
C.M.- 



CACHE D.INST.DEP, 
CLR.l8.0PC,PC_PC+1,J/IRD 



C.WQ: CACHE J>. INST. DEP,J/C.WQ1 



D CACHE.INST.DEP, 
RFTURN10 



D CACHE.INST.DEP 
=;END OF FATA. TYPE TEST 



6ET HERE BY DATA. TYPE? 

STORE RESULT 

GO ON 70 NEXT INSTR 



STORE QUAD/D8L RESULT, 60 WRT 2nd PART 



GET MEMORY OPERAND 
RETURN IT 



GET FIRST PART OF QUAD OPERAND 



RCCT23 D, 
ID D.S?NC, 
VA VA+4 



;PUT LOW ADDR PART AWAY 
.-SEND IT TO ACCELERATOR 
;GET HIGH ADDR READY 



DCLONG3_CACHE,RETURN10 ;GET HIGH ADDR PART 
;HERE TO COMPLETE WRITE OF QUAD/DOUBLE OPERAND 



C.WQ1: D RCCT13, 
VA" VA+4 



;GET HIGH-ADDRESS DATA 
;AND GO WRITE IT 



9170 STOR.L: CACHE DCL0NG3,CLR.IB.0PC, 

9171 " ■' — 

9172 
9173 
9174 



PC_PC+1,J/IRD 
;HERE FOR QUAD/DOUBLE IMMEDIATE OPERANDS 



; STORE SECOND PART OF QUAD RESULT 
;G0 BACK TO IRD 



9175 =00 

9176 C.IQ: 
9177 

9178 
9179 
9180 
9181 
9182 
9183 
9184 
9185 
9186 
9187 
9188 
9189 
9190 
9191 
9192 



CALL,J/IB.TBM 
CALL, J/IB. ERR 



Q IB.DATA,CLR. 182-5, 
IB.TEST?,J/C.IQ 



D_Q,Q_D,CI.R.IB.SPEC,RETURN10 



*********************************************** 

* Patch no. 047, PCS 04D3 trapped to WCS 116F * 
*********************************************** 

LIST ;Re-enable full listing 



D 4 

ZZ-ES0AA-124.0 ; ARITH .MIC [600,12043 ARITH.MIC 14-Jan-82 Fiche 2 Frame D4 Seguence 248 

; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 247 

; ARITH .MIC C600J2043 ARITH.MIC 

9193 .TOC '•ARITH.MIC" 

9194 .TOC 'Revision 1.2" 



9195 ; P. R. Guilbault 
9196 



9197 


.NOBIN 


9198 


.TOC 


9199 




9200 


; 01 


9201 




9202 


; 00 


9203 




9204 





Revision History* 



Remove absolute jumps. 

Change macro names that deal with condition codes. 

Delete MUL.MIC and put its code here. 

Start of history 



;9205 .BIN 

;9206 .NOLIST .-Disable listing of PCS code for quickie assemblies 



E 4 

ZZ-ESOAA-124.0 ; ARITH .MIC C6OO.12043 Integer arithmetic 14-Jan-82 Fiche 2 Frame E4 Seguence 249 

; P1W124.MCR 600,1204] MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 

; ARITH .MIC C600.1204T Integer arithmetic : Multiplication subroutine 
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9207 
9208 
9209 
9210 
9211 
9212 
9213 
9214 
9215 
9216 
9217 
9218 
9219 
9220 
9221 
9222 
9223 
9224 
9225 
9226 
9227 
9228 
9229 
9230 
9231 
9232 
9233 
9234 
9235 
9236 
9237 



,T0C 



Integer arithmetic : Multiplication subroutine" 



THE MULTIPLICATION IS DONE 2 BITS PER CYCLE. THE MULTILICAND IS IN L8, 

THE 2 TIMES MULTIPLICAND IS IN LC, AND THE MULTIPLIER IS IN D. 

SC SHOULD HAVE 3/7/15. FOR B/W/L MULTIPLICATIONS. 

THERE SHOULD BE "ALU0,D D.RIGHT2,SI/ZfcRO,MUL?" IN THE CALLING STATE. 

DURING MULTIFYING, THE PARTIAL PRODUCT IS IN D. 

WHEN DONE, THE PRODUCT IS IN Q AND D, WITH LSB'S IN D, AND SIGN EXTENDED IN Q. 

+VE MEANS LAST OPERATION IS POSITIVE, SUCH AS *2. OR +0. 

-VE MEANS LAST OPERATION IS NEGATIVE, SUCH AS -1, OR -0. 

+0 INDICATES TO DO DOUBLE RIGHT SHIFT BY 2 AND GO TO "+VE" COLUMNS FOR 

NEXT OPERATION. -2 INDICATES TO SUBTRACT 2 TIMES THE MULTIPLICAND 

(LC HAS 2 TIMES MULTI'CAND, LB HAS MULTrCAND) DO A DOUBLE RIGHT SHIFT 

BY 2, AND GO TO "-VE" COLUMNS OF THE TABLE. 

OXT, 1XT MEAN EXTENDED, 1 EXTENDED WHEN SHIFTING, RESPECTIVELY. 

RETURN TO RETURN ADDR .OR. 2 WHEN DONE FOR POSITIVE PRODUCT, SET SC TO -16. 

RETURN TO RETURN ADDR .OR. 2 WHEN DONE FOR NEGATIVE PRODUCT, SET SC TO -16. 

MULT'CAND IS POSITIVE 
D<1:0> «-VE -VE 

MULPP MULPM 



00 
01 
10 

11 



♦0, OXT 

+1, OXT 

-2, 1XT 

-1. IXT 



♦1, OXT 

+2, OXT 

-1, 1XT 

-0, 1XT 



MULT'CAND IS 

+VE 

MULMP 


NEGATIVE 
-VE 
MULMM 


+0, 1XT (*) 
+1, 1XT 
-2, OXT 
-1, OXT 


+1, 1XT 

2, 1XT 

-1, OXT 

-0, OXT 



(*) 



THIS IS ONLY TRUE ONCE A NON-ZERO BIT OF THE MULTIPLIER HAS BEFN 
ENCOUNTERED. UNTIL THEN THE OPERATION USED IS +0, OXT 
(I.E., RECOGNIZING THE FACT THAT A NEGATIVE IS POSITIVE) 



F 4 
ZZ-ESOAA-124.0 ; ARITH .MIC C600, 12043 Integer arithmetic 14-Jan-82 Fiche 2 Frame F4 Seguence 250 
; P1W124.MCR 600.12043 MICR02 1LC03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
; ARITH .MIC [600,12043 Integer arithmetic : Multiplication subroutine 
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U 0350, 
U 0351 , 
U 0352, 
U 0353, 
U 0354, 
U 0355, 
U 0356, 
U 0357, 

U 03A0, 
U 03A1, 
U 03A2. 
U 03A3, 
U 03A4. 
U 03A5, 
U 03A6, 
U 03A7, 



U 03B0, 
U 03B1, 
U 03B2, 
U 03B3, 
U 03B4, 
U 03B5, 
U 03B6, 
U 03B7, 



U 03F0. 
U 03F1 , 
U 03F2, 
U 03F3, 
U 03F4, 
U 03F5, 
U 03F6, 
U 03F7, 



0200,003E 
0200, 003E 
0200,003E 
0200,003E 
0281 ,2C3C 
028O,2C14 
0291 ,2C00 
028D,2C00 

0200,003E 
0200,003E 
0200,003E 
0200.003E 
0280, 2C1 4 
0291 ,2C14 
028O,2CO0 
0281 ,2C3C 



,6FOO,F800 
,6FOO,F800 
,6FOO,F800 
.6FOO.F800 
. 0740, F 800 
,0740,F800 
,07CO,F800 
,07C0,F800 



,4084,6002 
,4084,6002 
,4084,6002 
,4084,6002 
,0084,A350 
,0084,A350 
,0084,A3AO 
,0084,A3A0 



,6F80,F800,4084,6002 
,6F80,F800,4084,60C2 
,6F80,F800,4084,6002 
,6F80,F800,4084,6002 
,0740,F800,0084,A350 
,0740,F800,0084,A350 
,07C0,F800,0084,A3A0 
,07C0,F800,0084,A3A0 



0200,003E ,6F80,F800,4084,6002 
0200,003E ,6F80,F800,4084,6002 
0200,003E,6F80,F800, 4084,6002 
0200,003E,6F80,F800,4084,6002 
0281 ,2C3C,07C0,F800,0084,A3B0 
028O,2C14 ,07C0, F800,0084 ,A3B0 
0291 ,2COO,0740,F800,0084,A3FO 
0280,2COO,0740,F800,0084,A3FO 



0200,003E ,6FOO,F800,4084,6002 
0200,003E ,6F00, F8O0,4084 ,6002 
0200,003E ,6FOO,F800,4084,6002 
0200,003E,6FOO,F800,4084,6002 
028D,2C14,07C0,F800,0084,A3B0 
0291 ,2C14,07C0,F8O0,0O84,A3B0 
028D,2COO,0740,F800,0084,A3FO 
0281 ,2C3C,0740,F800,0084,A3FO 



U 0294. 0281 ,2C3C, 0740, F800, 0084, A294 

U 0295. 028D,2C14,07CO,F800,0084,A3BO 

U 0296. 0291,2CO0,0740,F800.0084,A3F0 

U 0297, 028D,2C00.0740,F800,0084,A3FO 



9238 
9239 
9240 
9241 
9242 
9243 
9244 
9245 
9246 
9247 
9248 
9249 
9250 
9251 
9252 
9253 
9254 
9255 
9256 
9257 
9258 
9259 
9260 
9261 
9262 
9263 
9264 
9265 
9266 
9267 
9268 
9269 
9270 
9271 
9272 
9273 
9274 
9275 
9276 
9277 
9278 
9279 
9280 
9281 
9282 
9283 
9284 
9285 
9286 



MULTIPLY LOOPS - EXPLANATION ON PREVIOUS PAGE 



=000 
MULPP: 



sc. 
sc. 
sc. 
sc. 

MULPP.4:QD 
QD" 
QD 
QD" 

=000 

MULPM: SC 

sc. 

SC 

sc; 

QD 
QD" 

qd; 

QD 



=000 
MULMP: 



=000 
MULMM: 



=100 
MULMZ: 



.KC.FFF03,MULP.D0NE 
.KC.FFF03,MULP.D0NC 
.KC.FFF03.MULP.D^*- 
.KC.FFF03.MULP.D0Nt 
.QD.RIGHT2, NUL 
.(Q+LB)D.RI6HT2,MUL 
(Q-LC)D.RIGHT2,MUL 
.(Q-LB)D.R!GHT2,MUL 

.KC.FFF03,MULM.D0NE 
.KC.FFF03,MULK.DONE 
.KC.FFF03,MULM.D0NE 
.KC.FFF03.MULM.D0NE 
.(Q+LB)D.RIGHT2,MUL 
.(Q+LC)D.RIGHT2,MUL 
.(Q-LB)D.RI6HT2,MUL 
QD.RI6HT2, MUL 



,RETURN2 

,RETURN2 

.RETURN2 

,RETURN2 

.0XT,J/MULPP 

.OXT,J/MULPP 

.1XT,J/MULPM 

.1XT,J/MULPM 

,RETURN2 

,RETURN2 

,RETURN2 

,RETURN2 

.OXT,J/MULPP 

.OXT,J/MULPP 

.1XT,J/MULPM 

.1XT,J/MULPM 



SC_KC.FFF03,MULM.D0NE 
SC.KC.FFF03.MULM.D0NE 
SC.KC . FFF03 ,MULM.D0NE 
SCJCC.FFF03.MULM. DONE 
QD QD.RIGHT2, MUL 
QD (Q+LB)D.RIGHT2,MUL 
QD_(Q-LC)D.RI6HT2,MUL 
QD.(Q-LB)D.RIGHT2,MUL 

SC.KC . FF F03 ,MULP. DONE 
SC KC.FFF03,MULP.D0NE 
SC KC.FFF03,MULP.D0NE 
SC_KC.FFF03.MULP. DONE 
QD (Q+LB)D.RI6HT2,MUL 
QD (Q+LC)D.RIGHT2,MUL 
QD (Q-LB)D.RIGHT2,MUL 
QD QD.RIGHT2, MUL 



,RETURN2 

,RETURN2 

,RETURN2 

,RETURN2 

.1XT,J/MULMP 

.1XT.J/MULMP 

.0XT,J/MULMM 

.OXT.J/MULMM 



,RETURN2 

,RETURN2 

,RETURN2 

,RETURN2 

.1XT.J/MULMP 

.1XT,J/MULMP 

.OXT.J/MULMM 

.OXT,J/MULMM 



QDJJD.RIGHT2. MUL. OX T, J /MULMZ 
QD <Q+LB)D.RIGHT2,MUL.1XT,J/MULMP 
QD (Q-LOD.RIGHT2. MUL. OXT.J/MULMM 
QD (Q-LB)D.RIGHT2.MUL.0XT,J/MULMM 



RETURN TO RETURN ADDR .OR. ? 

FOR POS PRODUCT 

(LAST EXTENDED BITS ARE OS) 

SET SC TO 16. 
+0, OXT 
♦1, OXT 
-2, 1XT 

-1, ixr 

RETURN TO RETURN ADDR .OR. 2 

FOR NEG PRODUCT 

(LAST EXTENDED BITS ARE 1S> 

SET SC TO 16. 
♦1. OXT 
+2, OXT 
-1, 1XT 
-0, 1XT 



RETURN TO RETURN ADDR .OR. 2 
FOR NEG PRODUCT 
(LAST EXTENDED BITS ARE 1S> 
SET SC TO 16. 



+0, 1XT 

+1, 1XT 

-2, OXT 

-1, OXT 



RETURN TO RETURN ADDR .OR. 2 

FOR POS PRODUCT 

(LAST EXTENDED BITS ARE OS) 

SET SC TO 16. 
+1, 1XT 
♦2, 1XT 
-1, OXT 
-0, OXT 



NEGATIVE MULTIPLIES START HERE 
+0, OXT 
+1, 1XT 
-2, OXT 

-1, OXT 



6 4 
ZZ-ES0AA-124.0 ; ARITH .MIC [600,12043 Integer arithmetic 14-Jar^*Z Fiche 2 Frame G4 Seguence 251 
; p*1U124.MCR 600.12043 MICR02 1L(03) K-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS1 24 Page 
; ARITH .MIC C600. 12043 Integer arithmetic : Divide subroutine 
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U 01 C3, OC41,003E,45CO,F800, 4000,0008 

U 01C7, 042D,OCOO,06A8,F800,0084,A1C3 
U 040E, 001 F, 0002, 45C0,F80t, 4000, 0008 
U 01D3, OC41,003C,01CO,F800,0000,040E 

U 01D7, 0420,OCOO,06A8,F800,0084,A1D3 



9287 
9288 
9289 
9290 
9291 
9292 
9293 
9294 
9295 
9296 
9297 
9298 
9299 
9300 
9301 
9302 
9303 
9304 
9305 
9306 
9307 
9308 
9309 
9310 
9311 
9312 
9313 
9314 
9315 
9316 
9317 
9318 
9319 
9320 
9321 
9322 
9323 
9324 
9325 
9326 
9327 
9328 
9329 
9330 



.TOC " Integer arithmetic 
DESCRIPTION: 

RESTORING DIVIDE SUBROUTINE 



Divide subroutine* 



ENTER AT DIVOX TO PRODUCE POSITIVE QUOTIENT, 
ENTER AT DIV1X TO PRODUCE NEGATIVE QUOTIENT. 



INPUTS: 

HIGH DIVIDEND IN D, LOW DIVIDEND IN Q 
DIVISOR IN LB, STEP COUNT IN SC. 
ALL NUMBERS CONSIDERED POSITIVE 

OUTPUTS: 

QUOTIENT (+ OR -> IN Q, REMAINDER IN D. SC = 0. 



RETURNS: 



ALWAYS AT 8 



=011 
DIVOO: 



KL*.80003,Q D. RIGHT, 

SI /ZERO, D Q, 

INTRPT . STROBE ,RETURN8 



DK/DIV,Q_Q.LEFT, 

SHF/LEFT,SI/DIV, 

SC SC-KC.13.ALU D-LB, 

MUC?,J/DIV00 



DIV111 



=on 

DIV11 



DIV1X: 



KC. 80003 ,Q 0-Q, 
INTRPT . STROBE , RE TURN8 

Q D. RIGHT, 
ST/ZER0,D.Q,J/DIV111 

DK/DJV,Q Q.LEFT, 

SHF/LEFT,SI/DIV, 

SC SC-K[.13,ALU D-LB, 

MUr?,J/DIV!1 



V+ 



-/+: -RMD, -QUOT 



-/♦ 



H 4 
ZZ-ESOAA-124.0 ; ARITH .MIC [600, 12043 Integer arithmetic 14-Jan-82 Fiche 2 Frame H4 Sequence 252 
; P1U1 24. MCR 600,12043 MICR02 1L(03) H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
; ARITH .MIC C600, 12043 Integer arithmetic : MUL82, MULB3, MULW2, MULW3, MULL2, MULL3 
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U 022D, 0800. 003C, 01 E0,F8OO, 0000,0411 



U 0411, 0802, C03C, 4980, F 988, 0084. 60A4 



U 00A4, 0002,E03D,C1CO,3COO,0080,C430 



U 00A5, 0001,E03C,0180,F800,0070,OOAC 



U OOAC, C001,C03C, 0180, F8DC, 4000, 0062 



U OOAD, 0019, E014, 0580, F800, 0070, OOAC 



9331 
9332 
9333 
9334 
9335 
9336 
9337 
9338 
9339 
9340 
9341 
9342 
9343 
9344 
9345 
9346 
9347 
9348 
9349 
9350 
9351 
9352 
9353 
9354 
9355 
9356 
9357 
9358 
9359 
9360 
9361 
9362 
9363 
9364 
9365 
9366 
9367 



.TOC " Integer arithmetic : MULB2, MUL83, MULW2, MULW3, MULL2, MULL3" 

MUL(B/y/L)2 MULR.RX, PROD.MX 

MUL(8/W/L)3 MULR.RX, MULD.RX, PROD.UX 
INTEGER MUL'S, ENTER HERE FROM B-FORK 
MUL B/U/L 2: * — REG 
THE OPERANDS ARE IN LA AND D REGISTERS. 



22D: 



D_LA, QJ> 



=01*0 



MUL.O: 



D_D.SXTCINST.DEP3, 
RtCT13 ALU, 
SC.Kr.PF3 

Q Q.SXTCINST.DEP3, 
IDCT03 D, 
SC SC+T, 
CACL,J/MUL.S 

ALU Q, SET.CC(INST), 
J/MOL.O 

R(PRN) D, 
DT/INST.DEP, 
CLR.I8.0PCPC PC+1, 
J/IRD 



=;END 



;11 

ALUJJ+KC13, 

SET.CC(INST), 

J/MUL.O 



NEED TO SIGN EXT M'lER 



SIGN EXT M'lER 

SAVE IN RC 1 

SETUP TO GET CONSTANT 100 (HEX) 

(IRO = 0) 

SIGN EXTEND MUL'CAND 

SAVE MUL'IER 

SC GETS 100 (HEX) 



POS 

SET PSL<V> IF OVERFLOW 



RETURN HERE FOR PROD = 
STORE RESULT 
WRITE B/W/L TO R 
UPDATE 13, PC 
GOTO NEXT INSTR 

NEG 

SET PSL<V> IF OVERFLOW 



I 4 

ZZ-ESOAA-124.0 ; ARITH .MIC [600,1204:1 Integer arithmetic 14-Jan-82 Fiche 2 Frame 14 Seguence 253 

; P1W1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA 0E, UCS1 24 Page 252 
; ARITH .MIC [600.12043 Integer arithmetic : MUL82. MULB3, HULW2, MULW3. MULL2, MULL3 



U 0381, 0802,C03C,4980,F988,0084.6506 



U 0506, 0002. E03D,C1 CO, 3C00, 0080. C430 



U 0507, F001,E03F,01FO.F847,0070,0300 



U 050E, F818,CO3B,19FC,F847.0070,0300 



U 050F, F019.E017.05FO.F847. 0070, 0300 



9368 
9369 
9370 
9371 
9372 
9373 
9374 
9375 
9376 
9377 
9378 
9379 
9380 
9381 
9382 
9383 
9384 
9385 
9386 
9387 
9388 
9389 
9390 
9391 
9392 
9393 
9394 
9395 
9396 



INTEGER MUL'S. ENTER HERE FROM C-FORK 
MUL 8/W/L 2: * — NOT REG, * — * — * 
THE OPERANDS ARE IN AND Q REG'iTERS. 



381: 
MUL: 



=0110 



=;END 



D D.SXTCINST.DEP3, 
RCCT13 ALU, 
SCJCCFFD 

Q Q.SXTCINST.DEP3, 

IDCT03 D, 

SC.SC+T. CALL, J/MUL.S 

ALU Q,SET.CC(INST), 
WRITE. DEST,J/WRD 

D KCZER03, 
SET.CC(INST). 
WRITE. DEST.J/WRD 

ALU Q+KC.13. 
SET.CCCINST). 
WRITE. DEST.J/WM) 



SIGN EXT M'lER 

SAVE IN RC 1 

SETUP TO GET CONSTANT 100 (HEX) 



SIGN EXTEND MUL'CANO 

SAVE MUL'IER 

SC GETS 100 (HEX), CALL MUL SUBR 

POS 

SET PSL<V> IF OVERFLOW 
WRITE RESULT 

RETURN HERE FOR PROD = 

PROD IS 

SET COND CODES 

WRITE RESULT 

NEG 

SET PSL<V> IF OVERFLOW 

WRITE RESULT 



J 4 
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; P1U124.MCR 600,12043 MICR02 1L(C3) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 
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U 0430, 0C01,2D3C,1D80,FAF8, 0084,8135 
U 0135, 0818, 003A, 1980, F800, 0050,0008 
U 0137, 0078, C038,1DC0,FA78, 0000, 043A 

U 043A, 082D. 2038, 01 E0,F980, 1588. 6068 

U 0068, 0810, 0D39.01F8.F908, 1400, 82A1 



9397 
9398 
9399 
9400 
9401 
9402 
9403 
9404 
9405 
9406 
9407 
9408 
9409 
9410 
9411 
9412 
9413 
9414 
9415 
9416 
9417 
9418 
9419 
9420 
9421 
9422 
9423 
9424 
9425 
9426 
9427 
9428 
9429 
9430 
9431 
9432 
9433 
9434 
9435 
9436 
9437 
9438 
9439 
9440 
9441 
9442 
9443 



.•INPUTS: 



COMMON SIGNED MULTIPLY SUBROUTINE FOR BYTE, WORD, LONGWORD 

SIGN-EXTENDED MULTIPLIER IN D, COPIES IN RCCT13 AND IDCT03. 

MULTIPLICAND (ALSO SIGN EXTENDED) IN Q 

SC = 100(HEX> 

INSTRUCTION DECODE ROMS DETERMINE DATA TYPE 



OUTPUTS: 

D = LOU 32 BITS OF PRODUCT 

Q = BITS OF PRODUCT WHICH DON'T FIT IN RESULT 

RETURNS: 

RETURNS AT 1 IF PRODUCT > 

RETURNS AT 8 IF PRODUCT = 

RETURNS AT 9 IF PRODUCT < 

TEMPORARIES: 

R15 USED TO SAVE MULTIPLICAND 

STATE USED TO HOLD DATA-TYPE DEPENDENT SHIFT COUNTS 

FE DITTO 

LA,LB,LC USED IN MULTIPLY LOOP 



MUL.S: 



=101 



RCR15J Q, D Q, 
SC SC+KCSCD, 
D.NE.O? 



D KCZER03 ,N8Z_ALU. VtC.O, 
RFTURN8 



=;END 



Q KCSCJ.CTX, 
LAB RCR153 



SC Q(EXP), STATE Q(EXP). 
FE Q(EXP), Q D. 5K/SHF, 
RCDO: LB. LEFT, SI/ZERO 



=0* 



;0 

D RCCT1J.Q 0. 
STATE STATE+FE, 
CALL, SIGNS?, J/MUL.6 



SAVE M'CAND 

SC NOW CONTAINS 200 

MUL'IER IS 0? 



PROD IS SINCE MUL'IER IS 
WRITE RESULT 



SET SHF COUNT FOR B,W,L 
LATCH MUL'CAND 



SC GETS COUNT (4,8,16) FOR B,W,L VIA EBMX 
SAVE CT TO REMEMBER B,W,L 
RC GETS 2 TIMES M'CAND 



D GETS M'lER 

STATE HAS # BITS (8.16,32) FOR B.W.L 

POS OR NEG MUL'CAND? 



K 4 
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U 006A, 0001,003C,758C.F800,1494,A464 
U 0464, ODOO,003C,0180,F800,0000,046D 

U 046D, 0001 ,DB3E.0180,F800, 0050, 0001 

U 02A1, 0818,003A.19F8,F800, 0050,0002 

U 02A3, 0203,OC3C,0580,F900,0084.A350 
U 02A5, 0F1F, 2000,01 CO,F800,0000,0475 

U 02A^, 0203, 0C3C. 0580, F 900. 0084, A294 

U 0475, 0641, 203E,00C0,F800, 0000, 0002 



9444 

9445 

9446 

9447 

9448 =;END 

9449 

9450 

9451 

9452 

9453 

9454 

9455 

9456 

9457 =001 

9458 MUL.6: 
9459 

9460 

9461 

9462 

9463 

9464 

9465 

9466 

9467 

9468 

9469 

9470 

9471 

9472 

9473 

9474 

9475 

9476 

9477 

9478 =;END 

9479 

9480 MUL.8: 

9481 

9482 

9483 



;1« 

ALU D, CLK.UBCC, 

STATE STATE-KC. 203, 

SC.EACU 



D.DAL. SC 



ALU D, NSZ ALU.VfcC 0, 
DT/lNST.DEP, 
ALU.N?, RETURN1 



D KCZER03, Q 0, 
NfcZ ALU. vac 0, 
RET0RN2 



• 01 

SC.SC-KC.13, 
LC RCCT03, ALU 0(A), 
D > 0.RIGHT2. SI7ZERO, 
mOl?, J/MULPP 



;10 

Q 0-D,D.O, 
J7MUL.8 



;11 

SC.SC-KC.13, 
LC RCCT03, ALU 0(A), 
D B.RIGHT2, SI7ZER0, 
MOL?, J/MULMZ 



ALU Q,Q ALU.RI6HT, 
D D7RJGRT,SI/ASHR, 
RFTURN2 



D31 HAS HI BIT OF PROD - ALU.N=SIGN 
STATE GETS -24, -16, FOR B,U,L 
MORE IMPORTANTLY, SO DOES SC 



ALIGN PRODUCT FOR BYTE, WORD, LONG INSTR 



SET COND CODES, N & Z 
DATA TYPE SET FOR B/W/L 
IS PROD POS OR NEG? 



M'CAND IS 

PROD IS SINCE MUL'CAND IS 

SET COND CODES 

WRITE RESULT 



SC HAS LOOP COUNT (3,7,15) FOR B,W,L 
LATCH 2 TIMES MUL'CAND, SETUP ALUC1 :03 
SHIFT MUL'IER BY 2 BITS 
GOTO MULT RCJTINE 

M'CAND IS MOST NEG NUMBER FOR MULL 
NEG M'lER 



SC HAS LOOP COUNT (3,7,15) FOR B,W,L 
LATCH 2 TIMES MUL'CAND, SETUP ALUC1 :03 
SHIFT MUL'IER BY 2 BITS 
GOTO MULT ROUTINE AT INITIAL NEG ENTRY PT 



ARITH SHF RIGHT <Q,D> 



U 0389. OCOI.ODSCOIEC.FAFS.OOOO.OIAS 



U 01A5. OF0O.0O3C,C18O,3C0O,0O0O,02A2 



U OW, 0021, 2D3C, 0180. F980.0000, 0281 



U02B1, 0000,003C,01F8,F800,0000,02A2 



U 02B3. 0000. 003C.61F8.FA78, 0084, 62A0 



U 02B5, 0000,003C, 01F8,f 800, 0000, 02A2 



U 02B7, 0000.003C,61F3,FA78,0084,61C0 



U 01C0, 0203. 0C3D, 0180. F900, 0000, 0294 



389: 
EMUL: 



=101 



ZZ-ESOAA-124.0 ; ARITH .MIC C600.12043 

; P1U124.MCR 600.12043 MICR02 1L(03) 

; ARITH .MIC [600, 12043 Integer arithmetic 

9484 .TOC 

9485 

9486 : 

9487 

9488 

9489 

9490 

9491 

9492 

9493 

9494 

9495 

9496 

9497 

9498 

9499 

9500 

9501 

9502 

9503 

9504 

9505 

9506 

9507 

9508 =;END 

9509 

9510 =001 

9511 

9512 

9513 

9514 

9515 

9516 

9517 

9518 

9519 

9520 

9521 

9522 

9523 

9524 

9525 

9526 

9527 

9528 

9529 

9530 

9531 

9532 =0**0* 

9533 AR.PA.29: 
9534 
9535 
9536 
9537 
9538 



L 4 
Integer arithmetic 14-Jan-82 Fiche 2 Frame L4 Sequence 256 

14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, JCS124 Page 

: EMUL 



255 



Integer arithmetic 



EMUL' 



EMUL 7A MULR.RL, MULD.RL, AOD.RL. PROD. WO 
;EMUL: EXTEND INTEGER MULTIPLICATION. 
;THE MULT'CAND IS IN D, AND THE MULT'IER IS IN Q. 

DOES NOT USE THE SAME ROUTINE USED BY NORMAL INTE6ER MULTIPLIES, 
BUT INSTEAD CALLS THE LOW LEVEL MUL ROUTINE DIRECTLY. 
THE ADDEND IS ADDED AS A SEPARATE STCP INSTEAD OF 'TOR FREE" 
DURING THE MULTIPLY LOOP BECAUSE OF OVERFLOW PROBLEMS IN THE LOOP. 



RCR153.D, 
QJ>, D Q, 
D.NE.O? 

DO, IDCT03 D, 
J7EMUL.2 



RCCT03.Q.LEFT, SI/ZERO, 
SIGNS? 



0, 
J7EMUL.2 

LAB RCR153. 
Q 0, SC KC.F3, 
J7EMUL.T 



;10 

9,0, 
J7EMUL.2 



;11 

LAB RCR15], 
Q 0, SC KC.F3 



R15 GETS MULT'CAND 
SWAP D, AND 
MULT'CAND .NE. 0? 

NO: MULT'CAND = 0, THEREFORE PRODUCT = 
SET PROD TO 
GOTO ADD ADDEND 

YES: MULT'CAND NE 0, CHECK IF MULT'IER = 
RCO GETS 2 TIMES MULT'CAND 
MULT'IER .NE. 0? 



NO: MULT'IER = 0, THEREFORE PROD = 
SET PROD TO 
GOTO ADD ADDEND 

YES: PROD .NE. 0, M'CAND POS 

LB GETS MULT'CAND 

PARTIAL PROD RESET TO 0. LOOP COUNT SET FOR 16. 

GOTO POS ROUTINE 

NO: MULT'IER = 0, THEREFORE PROD = 
SET PROD TO 
GOTO ADD ADDEND 

YES: PROD .NE. 0. M'CAND NEG 

LB GETS MULT'CNAD 

PARTIAL PROD RESET TO 0, LOOP COUNT SET FOR 16. 



*********************************************** 

* Patch no. 029, PCS 02B7 trapped to WCS 1161 * 

********* ******** ***************** ****** K ******* 

=;END 



; 0~ 

LC RCCTOD, 

ALD 0(A), 

D D.RIGHT2, SI/ZERO, 

CALL, MUL?, J/MULMZ 



LATCH 2 TIMES M'CAND IN LC 

SET ALUC1:03 TO 

READY FOR MULT ROUTINE 

GOTO NEG M'CAND MULTIPLICATION ROUTINE 



U 01C2, 0001,2E3D.0180.FAF8,0000,037E 



U 01D2. 081D.0D14, 0180, FA78, 0010, 0156 



M 4 
ZZ-ES0AA-124.0 ; AR1TH .MIC [600,12043 Integer arithmetic 14-Jan-82 Fiche 2 Frame M4 Seguence 257 
; P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 
; ARITH .MIC [600. 12043 Integer arithmetic : EMUL 



256 



9539 
9540 
9541 
9542 
9543 
9544 
9545 
9546 
9547 
9548 
9549 



=0**1* ;1 

RCR153 Q, 

CALL. INTERRUPT. REQ?, 

J/SPEC 



-"]**1* ;1**1 *———.--— 

D D+Q, CLK.UBCC, 
L*B RCR153, 
D31?, J /EMUL. 3 
=;END 



SAVE PROD <H> 
GET ADDEND 



ADD ADDEND, CLOCK IN CARRY 
LATCH PROD <H> 
IS ADDEND NEG? 



N 4 



ZZ-ESOAA-124.0 ; ARITH .MIC C600. 12043 Integer arithmetic 14-Jan-82 Fiche 2 Frame N4 Seguence 258 

; PI W1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, . PLA 0E, WCS1 24 Page 

; ARITH .MIC C600, 12043 Integer arithmetic : EMUL 



257 ; 



U 02A0. 0203,OC3D.0180,F900,0000.035^ 
U 02A2. 0OO1,2E3D,0180,FAF8,00C0,037E 
U 02B2, 081D,0D14, 0180. FA78,0010. 0156 

U 0156, 0001, C33C, 01 80, F800, 0070. 0250 
U 0157, 0001,C33C,0180,F800,0070,OOE8 

U 00E8, 0018,0000,05CO,F988,0000,0492 

U OOEA, 0000. 003C, 01 80, F 988, 0030, 0603 

U 0492, FOO1,203F,01F0,F847, 0030, 0300 

U 0250, 0000,003C,0180,F988,0030,0603 
■• 0252, 0018,0014,05CO,F988,0000.0492 



9550 =0**0* 

9551 EMUL.1: ; 

9552 LC RCCT03, 

9553 ALOO(A), 

9554 D7RI6HT2, SI/ZERO, 

9555 CALL. MUL?, J/MULPP 

9556 =0**1* 

9557 EMUL. 2: ; 

9558 RCR153 Q, 

9559 CALL, INTERRUPT. REQ?, 

9560 J/SPEC 
9561 

9562 =1**1* ;1**1* 

9563 D D+Q, CLK.U3CC, 

9564 Lfe RCR153, 

9565 D31? 

9566 =;END 
9567 

9568 =110 

9569 EMUL. 3: ;0 

ALU D, SET. CC( INST), 
C31?, J/EMUL.4 



9570 

9571 

9572 

9573 

9574 

9575 

9576 =;END 

9577 

9578 =0* 

9579 

9580 

9581 

9582 

9583 

9584 

9585 

9586 =;END 



ALU D,SET.CC(INST), 
C31? 



• 

Q LA-KC.13,RCL"T13_ALU, 
J7EMUL.6 



;1 

RCCT13 LA, 
N AMX.7 TST, 
J7WRDST" 



9587 

9588 EMUL. 6: ; 

ALU Q,N AMX.Z TST, 
WRITE. DEST, J7WRD 



9589 
9590 
9591 

9592 =0* 

9593 EMUL. 4: RCCT13 LA, 



;0- 



9594 
9595 
9596 
9597 
9598 
9599 
9'00 =;END 



N AMX.7 TST, 
J7WRDST" 



;1 

Q LA+KC.1],RCCT1J ALU, 
J7EMUL.6 



LATCH 2 TIMES M'CAND IN LC 

SET ALUC1 :03 TO 

READY FOR MULT ROUTINE 

GOTO POS M'CAND MULTIPLICATION ROUTINE 



SAVE PROD <H> 
GET ADDEND 



ADD ADDEND, CLOCK IN CARRY 
LATCH PROD <H> 
IS ADDEND NEG? 



SET COND CODES PART 1 
CARRY TO PROD <H>? 



SET COND CODES PART 1 
CARRY TO PROD <H>? 



GET PROD <H> 

GOTO DECREMENT IT BY 1 



PROD <H> 

SET COND CODES PART 2 

GOTO WRITE DEST 



SET COND CODES PART 2 
WRITE RESULT 



PROD <H> 

SET CfW CODES PART 2 

GOTO WRITE DEST 



RC1 GETS PROD <H> 
GOTO SET COND CODES 



B 5 

ZZ-ESOAA-124.0 ; ARITH .MIC C600.1204] Integer arithmetic H-Jan-82 Fiche 2 Frame B5 Seguence 259 

; P1W124.MCR 600.1204} MICR02 1LC03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 258 

; ARITH .MIC L600, 12043 Integer arithmetic : DIV82, DIVB3, DIVW2, DIVW3, DIVL2. DIVL3 



U 022C, 0800, 003C01E0.F800, 0000, 0481 

U 0481, 0802,E03C,19E0,F800,1404,64C3 
U 04C3, 0001,003C,0180,FAF8,0000,0150 

U 0150, 0802, ED3D, 01 F8,FA78, 0000, 0374 
U 0151, 0000,003C, 0180, F 800, 0000, 0280 

U 0158, 0FO2,D73C,01C0,F80O,0O0O,0U2 
U 0142, 0001, ED3C, 0180, F8D8, 0050, 01 80 



U 0143, C01D,C0OO,0180,F8DC, 4050, 0062 

U 0180, C0O0,O03C, 0180, F804, 4000, 0062 

U 0184, 0000, 003D, 31 F0,2COO, 0000, ODFC 

U 0185, C0O0,003C, 0180, F804. 4000, 0062 



9630 
9631 
9632 
9633 
9634 
9635 
9636 
9637 
9638 
9639 
9640 
9641 
9642 
9643 
9644 
9645 
9646 
9647 
9648 
9649 
9650 
9651 
9652 
9653 
9654 
9655 



9601 

9602 

9603 

9604 

9605 

9606 

9607 22C: 

9608 

9609 

9610 

9611 

9612 

9613 

9614 

9615 

9616 

9617 

9618 =0**0 

9619 

9620 

9621 

9622 

9623 

9624 

9625 

9626 

9627 

9628 

9629 =;END 



.TOC " Integer arithmetic 



DIV82, DIVB3, DIVW2, DIVW3, DIVL2, DIVL3" 



DMB/W/U2 DIVR.RX, QUO.MX 
DIV(8/W/L)3 DIVR.RX, DIVD.RX, OUO.UX 
INTERGER DIV, ENTER AT B.FORK WITH D'END IN LA AND D'SOR IN D. 



Q.D, D.LA 



D Q.SXTCINST.DEPJ, 

Q.D, 

STATE KCZER03 



RCR15J D 



. oo 

D Q.SXT[INST.P=P3, Q 0, 

LAlB RCR153, 

CALC, SIGNS?, J/DIV.S 

J/DJV.ZO 

Q D.SXTCINST.DEP3. D 0, 
STATEO? 



=**10 ;0- 



R(PRN) Q, NftZ ALU. VRC 0, 
DT/INST.DEP, " 
Q31?,J/DIV.0V 



=;END 



;1 

R(PRN) ALU,ALU D-Q, 
Ml ALO.VRC 0," 
DT/TNST.DEP, 
CLR.IB.OPCPC PC+1, 
J/IRD 



=0*0 ;0 

DIV.OV: CLR.IB.OPC, PC PC+1, 
J/IRD 



=U0 



=;END 



. i 

Q.IDCCES3, CALLCINOVFU 



CLR.IB.OPCPC PC+1, 
J/IRD 



D GL.'S D'END, GETS D'SOR, SIGN EXT LATTER 



SIGN EXT D'SOR 

Q GETS D'END 

CLEAR FLAG (USED FOR NEG QUOT) 



SAVE D'SOR 



SXT EXT D'END, Q=0 TO HACK CONSTRAINT 3DIV.2 
LATCH D'SOR 
D.NE.O? D31? 

RETURN HERE FOR DIV BY 



RETURN HERE WITH D HAS QUOT 

Q GETS QUOT, D=0 FOR CONSTRAINT HACK I NEGATE 

HAVE TO NEGATE QUOTIENT? 



NO: +/+ OR -/- 

SET COND CODES 

WRITE ONLY B/W/L IN R 

OVERFLOW? 

YES: ♦/- OR -/+ 
NEGATE QUOTIENT 
SET COND CODES 
WRITE ONLY B/W/L IN R 
UPDATE 18, PC 
GOTO NEXT INST 



NO OVERFLOW 



OVERFLOW - MOST NEG NUMBER / -1 
GO SET V AND TRAP CODE 

RETURN FROM INOVFL HERE 
UPDATF IB. PC 
NEXT INSf 



C 5 

ZZ-ESOAA-124.0 ; ARITH .MIC C600. 12043 Integer arithmetic 14-Jan-82 Fiche 2 Frame C5 Seguence 260 

; P1W124.MCR 600-1204] MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA 0E, WCS124 Page 259 

; ARITH .MIC [600,12043 Integer arithmetic : DIV82. DIVB3, 0IVU2, DIVW3. DIVL2. DIVL3 



U 0230. 0000. 003D. 31 F0.2COO. 0000. ODFD 



U 0281. C000.003C, 0180. F804, 4000,0062 



9656 =0 

9657 DIV.20: ;0 

9658 Q IDCCES3, 

9659 CAU,J/INDIVO 
9660 

9661 ; 1 

9662 CLR.I8.0PC.PC PC+1, 

9663 J/IRD 

9664 =;END 



GET CES 

CALL SETUP CES 



UPDATE 18, PC 
NEXT INST 



ZZ-ESOAA-124.0 ; ARITH .MIC C600.1204D 



; P1W124.MCR 600,12043 
; ARITH .MIC C600.1204] 



S 
Integer arithmetic 14-Jan-82 



Fiche 2 Frame 05 



MICR02 1L(03) H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCSl 24 
Integer arithmetic : DIV82, DIVB3, DIVW2, 0IVW3, DIVL2, DIVL3 



Sequence 261 



Page 260 



U 0380, 081A,E014,19EO,F800.1414,64EA 
U 04EA, 0001,003C,0180.FAF8,0000,0270 

U 0270. 0802. ED3D,01F8,FA78, 0000. 0374 
U 0271. 0802, FB3C,0180,F800,0000. 0334 
U 0278, 0F02,D73C,O1CO,F80O,0O00.022A 

U 022A. 08O1,ED3C,O18O,F80C.0O50.02E0 

U 0228, F81D,C003,OlFO.r347,0050.0300 

U 02EO, F000.003F,01FO,F847,0000,0300 
U 02E4, 0000,003D,31FO,2COO,0000,ODFC 
U 02E5, FOOO,003F,01FO,F847,0000,0300 

U 0334, 0000,003C, 0180. F800, 0000, 0280 
U 0336, 0000, 003D,31F0.2COO, 0000, ODFD 
U C337. F000.003F,01FO,F847,0000,0300 



9665 
9666 
9667 
9668 
9669 
9670 
9671 
9672 
9673 
9674 
9675 
9676 
9677 
9678 
9679 
9680 
9681 
9682 
9683 
9684 
9685 
9686 
9687 
9688 
9689 
9690 
9691 
9692 
9693 
9694 
9695 
96*6 
969,' 
9698 
9699 
9700 
9701 
9702 
9703 
9704 
9705 
9706 
9707 
9708 
9709 
9710 
9711 
9712 
9713 
9714 
9715 
9716 
9717 
9718 
9719 



;INTERGER DIV. ENTER AT C.FORK WITH D'END IN D AND D'SOR IN Q. 
$80: 



DIV: 



ALU Q.SXTCINST.DEPJ+KCZEROiJ. ; SIGN EXT D'SOR 
D AlUCU.UBCCQJ), ; GETS D'END 



=0**0 



STATE JCCZEROD 
RCR153 D 



D Q.SXTCINST.DEP3, Q 0, 
\JB RCR153, 
CALC,SIGNS?,J/DIV.S 



=;END 
=**10 



D Q.SXTCINST.DEP3, 
IRO?, J/DIV.Z 



;10 

Q D.SXTCINST.DEPJ, D 0, 
STATE3-0? 



ALU 0,D ALU.DT/INST.DEP, 
NfcZ ALU.V&CJ), 
Q31?, J/DIV.0V3 



=;END 



D D-Q, N8Z ALU.VfcC 0, 
DT/INST.DEP, 
WRITE. DEST 



=0*0 ;0 

DIV.0V3: WRITE. DEST 



CLEAR FLAG (USED FOR NEG QUOT) 
SAVE D'SOR 



SXT EXT D'END, Q=0 FOR CONSTRAINT HACK 3DIV.2 
LATCH D'SOR 
D.NE.O? D31? 

RETURN HERE FOR DIV BY 

SXT EXT D'END 

IF 2-OPR INST, DO NOT CHANGE QUOT C D R 

RETURN HERE WITH D HAS QUOT 

Q GETS QUOT, D=0 FOR CONSTRAINT HACK 

HAVE TO NEGATE QUOT? 



NO: +/« OR -/- 
MOVE QUOT TO D 
SET COND CODES 
OVERFLOW? 

YES* +/•" OR "/■*■ 
SET" COND CODtS BY NEG QUOT 
DATA TYPE SET FOR B/W/L 
WRITE RESULT 



NO OVERFLOW 

JUST WRITE t LEAVE 



=1*0 



=;END 

=*100 
DIV.Z: 



=*110 



=;END 



;1 . OVERFLOW - MAX NEG U / -1 

Q_IDCCES3, CALLCINOVFL3 ; SET TRAP CODE AND V BIT 



WRITE. DEST 



INOVFL RETURNS HERE 
WRITE RESULT 



; (SINCE DIVISOR=0, ALU.N=0) 

• 00 ; 2-0PR INST, DO NOT CHANGE QUOT OPR 

J/DIV.ZO 

• 10 ; 3-OPR INST, QUOT OPR GETS D'END 

QJDCCESJ, CALLCINDIVOJ ; GET CES, GO SET TRAP CODE & V BIT 



;11 

WRITE. DEST 



WRITE QUOT 



U 0374, 0001, C03E, 01 80 ,F 800. 0050, 0001 



ZZ-ESOAA-124.0 ; ARITH .MIC C600, 12043 

; P1U124.MCR 600,1204] MICR02 1L(03) 

; ARITH .MIC [600. 12043 Integer arithmetic 

9720 
9721 
9722 
9723 
9724 
9725 
9726 
9727 
9728 
9729 
9730 
9731 
9732 
9733 
9734 
9735 
9736 
9737 
9738 
9739 
9740 
9741 
9742 
9743 
9744 
9745 
9746 
9747 
9748 
9749 
9750 
9751 
9752 
9753 
9754 
9755 
9756 
9757 
9758 
9759 
9760 
9761 
9762 
9763 
9764 
9765 
9766 
9767 
9768 
9769 
9770 
9771 
9772 
9773 



U 0376, C078,CD38,01C0,FA78,0000,02C2 



U 0377, 000F,0000,0180,FAF8.1400,C376 



U 02C2, 0F1F, 0000, 01E0,F800, 0082, 04EE 



U 02C3, 081F,2000,0180,F800,1400,C2C2 



U CKEE, 0D1B,OOO0,1D8O,F800,0O82,04F1 



U 04F1, 0FOO,O03C,01E0,F800,0000,01C7 



E 5 

Integer arithmetic 14-Jan-82 Fiche 2 Frame E5 Seguence 262 
K-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E. WCS124 Page 261 
: DIV82, DIVB3. DIVW2, DIVW3, DIVL2, DIVL3 

.'SUBROUTINE TO DO BYTE, WORD OR LONGUORD DIVISION. 

.-USES RESTORING DIVIDE SUBROUTINE DIVOX. 

.-ENTER AT DIV.S WITH BEN/SIGNS TESTING DIVISOR-WHICH WAS IN D TILL CALLING STATE 



.•INPUTS: 



.•OUTPUTS: 



; RE TUFAS: 



DIVISOR (SIGN EXTENDED TO LONGWORD) IN R15 WITH A COPY IN LAfcLB. 
DIVIDEND (ALSO SIGN EXTENDED) IN D 
Q = STATE = 0. 

Q = ABSOLUTE VALUE OF QUOTIENT 

D = ABSOLUTE VALUE OF REMAINDER 

STATE<0> = DESIRED QUOTIENT SIGNd MEANS QUOTIENT IN Q NEEDS NEGATING) 

nET'J'NS AT 1 IF DIVISOR = 
RPT'jRNS AT 8 OTHERWISE 



.•TEMPORARIES: SC USED FOR STEP COUNTER 
; R15,LA,LB DESTROYED 



=100 
DIV.S: 



ALU D, N&Z ALU.VfcC 0, 

DT/lNST.DEP, 

RETURN1 



D'SOR IS 

SET COND CODES N & Z 
DATA TYPE SET FOR B/W/L 
D'SOR IS 



*********************************************** 

* Patch no. 034, PCS 0374 trapped to WCS 1166 * 
*********************************************** 



=110 ;10 ■ ; D'SOR .NE. 0, AND IS POS 

DIV.O: 0JCC.83.CTX, ; SET LOOP CT OF 8,16.32 FOR B,W,L 

LAB RCR153. ; LATCH ABS (D'SOR; 

D317.J/DIV.2 ; IS D'END POS OR NEG? 

;11 ; D'SOR .NE. 0, AND IS NEG 



RCR153 O-LB, 

STATE 5lATE+1,J/DIV.O 
=;END 
=*10 
DIV.2: ;0 

ALU O-Q.SC ALU, 

Q D, D 6, 

J7DIV.3 

;1 

D 0-D. 

STATE.STATE+1,J/DIV.2 
=;END 
DIV.3: ; 

D DAL.SC, 
StJHC[SC3 

6 D, D 0, 
J7DJV0X 



R15 GETS ABS (D'SOR) 

EXCLUSIVE OR STATEC003 AS FLAG FOR NEGATE QUOT 



TO ALIGN D'END, LEFT JUSTIFIED IN Q 
SC GETS -8, -16., -32. FOR B,W,L 
Q GETS D'END 
GOTO ALIGN D'END 

D GETS ABS(D'END) FOR NEG D'END 

EXCLUSIVE OR STATE COOD AS FLAG FOR NEGATE QUOT 



D GETS D'END LEFT JUSTIFIED 

SC GETS LOOP CT 8. 16., 32. FOR B,W,L 



Q GETS D'END 

GOTO DIVIDE ROUTINE 



ZZ-ESOAA-124.0 ; ARITH .MIC [600,1204!) 
; P1W124.MCR 600.120A3 
; ARITH .MIC C600,1204] 



F 5 
Integer arithmetic 14-Jan-82 Fiche 2 Frame F5 Seguence 263 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 262 

Integer arithmetic : EDIV 



U 0388, 0C01,203C.C1E0,3EF8, 0000,0501 

U 0501, OC1B,GD38,75EO,F908,H8A,6584 

U 0584, 081 0,0038,01 80, F 908 ,0050, 0364 

U 0586, 0010,OD39,0180,FA78, 001 0,0256 

U 0587, O01F.OOOO,O18O,FAF8,14O0,C586 

U 058E, 001F,3714,0180.F800, 0010,0412 

U 0412, 0001,1B3C,0180,F800,0050,OOE6 

U 0413, 001 9,0100,0580,F800, 001 0,0310 



U 0310. O81F,3B0O,018O,F800,0n^n 00E6 



U 0311, OCO3.OO3C,C180.3C0O,5AD8.708C 



9774 
9775 
9776 
9777 
9778 
9779 
9780 
9781 
9782 
9783 
9784 
9785 
9786 
9787 
9788 
9789 
9790 
9791 
9792 
9793 
9794 
9795 
9796 
9797 
9798 
9799 
9800 
9801 
9802 
9803 
9804 
9805 
9806 
9807 
9808 
9809 
9810 
9811 
9812 
9813 
9814 
9815 
9816 
9«'7 
?h18 
9,ii9 
9bZ0 
9821 
9822 
9823 
9824 
9825 
9826 



.TOC 



Integer arithmetic 



EDIV 



EDIV (7B) DIVR.RL, DIVD.RQ, QUO.WL, REM.WL 
:INTERGER EXTENDED DIVIDE, EDIV, WITH D'END IN <D, RC1> AND D'SOR IN Q. 



EDIV: 



RCR15J Q, 
DO, QlD, 
IPCT03ID 



SC KC.203.ALU, 

STATE 0(A), LC RCCT1J, 

DO, Q.D, 

sTgns? 

=0100 ;00 

D RCL71J, 

N8Z.ALU.vaC 0, J/EDIV.Z 

=0110 

EDIV.1: ;10 

LAB RCR153, 

ALU LC, CLK.UBCC, 

CALC, D31?, J/EDIV.6 

RCR15J O-Q, 
STATE_5TATE+1,J/EDIV.1 



=1110 



=;END 
=**10 



ALU 0+D, CLK.UBCC, 
STATEO? 



ALU.D, N&Z ALU.VfeC 0, 
ALU.N?, J/EDIV.9 

ALU_D-KC.l5,CLK.UBCC, Z? 



R15 GETS D'SOR 

D GETS D'SOR, Q GETS D'END <H> 

SAVE D'END*:H> IN CASE WE OVERFLOW 



SET LOOP COUNT 

LATCH D'END <L> 

D GETS D'END <H>, Q GETS D'SOR 

D'SOR = 0? POS OR NEG? 

p'SOR = 

D GETS DIVIDEND<31:0> 

SET CCL 5 ON D'END <L> 

D'SOR IS POS 

LATCH D'SOR IN LB 

SET ALU.Z IF DIVIDEND<L>=0 

D'END POS OR NEG? 

D'SOR IS NEG 

R15 GETS ABS (D'SOR) 

EXCL OR STATECOOJ AS FLAG FOR NEGATE QUOT 



RETURN HERE WITH QUOT IN D, REM IN Q 
SHOULD QUOTIENT BE POS OR NEG? 

QUOT IS POS 

SET CONDITION CODES ON QUOTIENT 

CHECK FOR OVERFLOW AND GO STORE 

QUOT IS NEG 

SET UP OVFLO TEST & CHECK IF 



*********************************************** 

* Patch no. 011, PCS 0413 trapped to WCS 1148 * 

*********************************************** 

=;END 

6 0-D, NfcZ ALU.VRC.O, 
AEU.N?, J/EDIV.9 



IDCT03 D, D_Q, SC.O(A), 
ALU 0(A), NRZ_ALU.V8C„0, 
INT&PT. STROBET 
STATE 0(A), J/EM0DF.11 



QUOT < C 

NEGATE QUOTIENT 

GO CHECK OVERFLOW (POS NUM > 2**31) 



QUOT = 

QUO = D, REM = Q, 

SET COND CODES FOR A RESULT 

USE EMODF CODE TO STORE RESULTS 

SINCE A PAIR OF LWORDS IS A PAIR OF LWORDS 



g : 

ZZ-ESOAA-124.0 ; ARITH .MIC [600,12043 Integer arithmetic K-Jan-82 Fiche 2 Frame G5 Sequence 264 

: P1U124.MCR 600.12043 MICR02 1L(03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 263 

; ARITH .MIC C600, 12043 Integer arithmetic : EDIV 



U 0320, 0000.003D,31FO,2COO,0000,OOFC 

U 0321, OF03.0O3C,C180,3C0O,5488,708C 
U 0541, 0O1O,0D38,01C0,F908,00O0,0162 
U 0162, 0000,003C, 0180,F800,0000,01C7 

U 0166, 0810,0038,0180,F908,0050,0320 

U 0256. 001 C, 2008,01 CO,F800,0000,0541 

U 0257, 0013,0100,0180,F990.1400,C358 

u 0358, 0801,0028,0180,F800,0000,058A 
U 0359, 081F,2000,0180,F800,0000,058A 

U 058A, 0F1C,2008,C1C0,3C0O.00O0,058C 
U 058C, 081O,0D38,C1F0,2D10,00OO.0051 
U 0051, OC00.003C,01EO,F800,0000,01D7 

U 0055, 0810,0038, 0180, F 908, 005 0,0320 



9827 
9828 
9829 
9830 
9831 
9832 
9833 
9834 
9835 
9836 



9839 
9840 
9841 
9842 
9843 
9844 
9845 
9846 
9847 
9848 
9849 
9850 
9851 
9852 
9853 
9854 
9855 
9856 
9857 
9858 
9859 
9860 
9861 
9862 
9863 
9864 
9865 
9866 
9867 
9868 
9869 
9870 
9871 
9872 
9873 
9874 
9875 
9876 



=0 

EDIV.2: ;l 

Q IDCCES3, 
C*LL,J/INOVFL 

;!• 



=;END 



9837 EDJV.3; 
9838 



=01* 



=;END 

=110 



IDCT03J), DO, SC 0(A). 
INTRPT. STROBE, 
STATEJXA), J/EMODF.11 

Q.RCCTI 3,031? 

;0- 

J/DIVOX 

;1 

D RCCT13, 

NEZJVLU.VfcC.O, J/EDJV.2 



EDIV.6: ALU LA-D-1, ALU. 
J/EBlV.3 



=;END 
=0 



;1- 

STATE STATE+1, 

ALU.O-LC, RCCT23.ALU, Z? 



; 

D N^T.D, 
J7EDIV.7 



;1 

D 0-D 
=;END 

' ALU LA-D-1, Q.ALU, 
IDCT03_D, D„0 



OVERFLOW COMES HERE 

GET CES 

CALL SETUP CES 



QUO = D*END<L>, REM = 0, 

USE EMODF CODE TO STORE RESULTS 

SINCE A PAIR OF LONGUORDS IS A PAIR OF LONGWORDS 



Q GETS D'END <L>, OVERFLOW? 

OK (D KNOWN ♦) 
CALL DIV S'JBRT 

OVERFLOW 

Q GETS D'END <L> 

SET CCL 5 ON D'END <L> 

D'END POS 

CHK FOR OVERFLOW 

CALL DIV SUBROUTINE 

D'END NEG 

EXCL OR STATEC003 AS FLAG FOR NEGATE QUOT 

RCCT23 GETS ABS(D'END <L», SKIP IF ZERO 



D'cND <L> NOT ZERO 

D'END <H> IS 1'S COMP TO NEGATE D'END 

GOTO DIV SUBRT 

D'END IS ZERO 

NEG D'END <H> INSTEAD 1'S COMP OF IT 



CHK FOR OVERFLOW 

SAVE D AND CLR IT FOR CONSTRAINT HACK 



D_RCCT23, QJDCT03, Q31?; D = D'END<L>, Q = D'END<H>, OVERFLOW? 



=0** 



D.Q. Q_D» J/DIV1X 



OK 

CALL DIV SUBRT 



=;£ND 



; 1 . 0VERF L ou 

D RCCT13, ; Q GETS D'END <L> 

N8Z.ALU.V&C 0, J/EDIV.2 ; SET CCL 5 ON D'END <L> 



H 5 
ZZ-ESOAA-124.0 ; ARITH .MIC [600,1204:1 Integer arithmetic H-Jan-82 Fiche 2 Frame H5 Seguence 265 
; P1U1 24. NCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA OE, WCS1 24 Page 264 
; ARITH .MIC C600.1204D Integer arithmetic : EDIV 



U 00E6. OC03.003C.C180.3C00.5488.708C 



U OOEE. 0810.0038.0180.F908.0050.0320 



U 0364, O000.0O3D.31F0.2C0O.00O0.0DFD 



U 0365. 0F03.OO3C,C180,3C0O,5488.708C 



9877 
9878 
9879 
9880 
9881 
9882 
9883 
9884 
9885 
9886 
9887 
9888 
9889 
9890 
9891 
9892 
9893 
9894 
9895 
9896 



; CONSTRAINT FOR ALU.N AND PSL.N BRANCHES 

^011* ;0 ; EXIT CODE - NO OVERFLOW 

EDIV.9: IDCTOJJ), D_Q, SC OCA), ; QUO = D. REM = Q. 

INTRPT. STROBE. ; USE EMODF CODE TO STORE RESULTS 
STATE.O(A). J/EM0DF.11 ; SINCE A PAIR OF LWORDS IS A PAIR OF LWORDS 



=0 
EDIV.Z: 



.LIST 



D RCCT13. N8Z.ALU.V8C 0,; QUOTIENT = DIVIDEND<31 :0> 
J7EDIV.2 

; DIVIDE BY COMES HERE 

; GET C.E.S. 

; GO STICK DIV BY CODE IN CES 



Q IDCCES3. 
CALL. J/INDIVO 

;1« 

IDCT03 D. D 0. SC 0(A). 
1NTRPT. STROBE, " 
STATE 0(A). J/EMODF.11 



QUO = D'END<L>, REM = 0, 

USE EMODF CODE TO STORE RESULTS 

SINCE A PAIR OF LWORDS IS A PAIR OF LWORDS 



;Re-enable full listing 



I 5 

ZZ-ESOAA-124.0 ; INDEX .MIC C60O, 12043 INDEX.MIC 14-Jan-82 Fiche 2 Frame 15 Sequence 266 

; P1W124.MCR 600 j , 1 204j MICR02 1L(03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 265 

; INDEX .MIC C600. 12043 INDEX.MIC 

9897 .TOC "INDEX.MIC" 

9898 .TOC 'Revision 1.0" 

9899 ; P. R. Guilbault 
9900 

9901 .N08IN 

9902 .TOC " Revision History" 
9903 

9904 ; 01 Change macro names that deal with condition codes. 

9905 ; 00 Start of history 
9906 

;9907 .BIN 

;9908 .NOLIST .-Disable listing of PCS code for Quickie assemblies 



J 5 

ZZ-ESOAA-124.0 ; INDEX .MIC C60O, 12043 Index instruction 14-Jan-82 Fiche 2 Frame J5 ^guence 267 

; P1U1 24. MCR 600-1204] MICR02 1L(03) K-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS1 24 Page 

; INDEX .MIC C600.12043 Index instruction : INDEX 



266 



U 03C9, 001D,EOOO,0180,F800.0070,OOOE 

U O00E, OCOO,003D,0180,F800,0000,037E 
U 001E, 0000. 1A3C, 0180, F800, 0000, 0066 



9909 
9910 
9911 
9912 
9913 
9914 
9915 
9916 
9917 
9918 
9919 
9920 
9921 
9922 
9923 
9924 
9925 
9926 
9927 
9928 
9929 
9930 
9931 
9932 
9933 
9934 
9935 
9936 
9937 
9938 
9939 
9940 
9941 
9942 
9943 
9944 
9945 
9946 
9947 
9948 
9949 
9950 
9951 
9952 
9953 
9954 
9955 
9956 
9957 
9958 
9959 
9960 
9961 



.TOC 



Index instruction 
opcode(OA) 



INDEX' 



subscript. rl, low.rl, high.rl, size.rl, indexin. rl, 
indexout.wl 



ALGORITHM: 

The operation specified for this instruction is: 

indexin <- {indexin + subscript>*size; 

if {subscript LSS low> or {subscript 6TR high> 

then {subscript range trap> 

On entry to this routine from C-FORK, the indexin and subscript 
operands have been fetched by A-FORK and B-FORK routines. The flow 
is as follows: 

1) Get 'high' limit operand per SPEC subroutine 

2) If 'subscript* operand less than 'low* operand, setup 
subscript range trap 

3) Get 'size' operand per SPEC subroutine 

4) If 'subscript* operand less than 'high' operand, setup 
subscript range trap 

5) Get 'indexin' operand per SPEC subroutine 

6) Calculate (subscript + indexin) and set condition codes 
for next step 

7) If 'size* operand = 1, write above result per WRITE. DEST function 

8) Calculate (subscript ♦ indexin)*size using MUL.S subroutine 

9) Set condition code£ and write result per WRITE. DEST function 

; STORAGE/REGISTER ALLOCATION: 

D-REG 'low* operand on entry 

Q-REG 'subscript' operand on entry 

IDCCESJ Range trap code 

IDCTOJ temporary 

RCCTI] 'size' for MUL.S routine 

RCCT23 temporary 



3C9: 



ALU.G-D, SET.CC(INST) ; TEST FOR 'LOW* LEQ 'SUBSCRIPT' 
.-CALL CONSTRAINT BLOCK FOR SPEC ROUTINE 



;0* <!*- 

CALL, 

;1**1*- 
PSL.N? 



J /SPEC 



MOVE SUBSCRIPT TO D-REG 
GO GET 'HIGH' OPERAND 

RETURN FROM SPEC ROUTINE 

WAS SUBSCRIPT LESS THAN LOW LIMIT? 



ZZ-ESOAA-124.0 ; INDEX .MIC [600,12043 



P1W124.MCR 600,12043 
INDEX .MIC C600, 120*3 



MICR02 1L(03) 
Index instruction 



K 5 
Index instruction 14-Jan-82 riche 2 Frame K5 Sequence 268 

14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 267 
: INDEX 



U 0066. 0C01.003D, 31 F0.2D90, 0000, 0591 



U 006E, 0C1D.C001, 0180. F800, 0070, 037E 



U 007E, 0019.1AOO,0580.F800.0010,01A6 



U 01A6, 0C01.003D,31F0, 2090.0000,0591 



U 01AE, OC01,003D,C180,3D88.0000,037E 



U 01BE. 081D,0114,49CO,F80G,OOD4,6390 



U 0390, 0000,003C,0180,F800,0080,C516 



>J 0391, F000,003F,01F0,F847, 0000,0300 



9962 

9963 

9964 

9965 

9966 

9967 

9968 

9969 

9970 

9971 

9972 

9973 

9974 

9975 

9976 

9977 

9978 

9979 

9980 

9981 

9982 

9983 

9984 

9985 

9986 

9987 

9988 

9989 

9990 

9991 

9992 

9993 

0994 

9995 

9996 

9997 

9998 

9999 

10000 

10001 

10002 

10003 

10004 

10005 

10006 

10007 

10008 

10009 

10010 

10011 



=0011* ;CALL CONSTRAINT BLOCK FOR SPEC AND PSL.N BRANCH (BEN/PSD 



=1111* 



=1111* 



=0 



;0011*- 

Q.IDCCES3, 

DO, 

RtCT23j>, 

CALL, J/INDEX.9 

ALU D-Q, SET.CC(INST), 

D Q, 

CALL, J/SPEC 

ALU.D-KC.13, CLK.UBCC, 
PSL.N? 



*** SUBSCRIPT RANGE TRAP DETECTEr *** 

GET CP ERR/STATUS REG 

SAVE C-REG IN D-REG 

SAVE C-REG IN RC STACK 

GO SET EXCEPTION TRAP CODE I RETURNS 

*** LOW LIMIT OK, GO GET SIZE OPERAND *** 

TEST FOR 'HIGH' > 'SUBSCRIPT' 

MOVE SUBSCRIPT TO D-REG 

GO GET SIZE (SUBSCRIPT/Q-REG ON RETURN) 

*** RETURN10/12 FROM SPEC *** 
TEST 'SIZE' FOR EQ 1 
WAS 'HIGH' > ' SUBSCRIPT" 



=0011* ;CALL CONSTRAINT BLOCK FOR SPEC AND PSL.N BRANCH (BEN/PSD 



; 001 1 * 

Q.IDCCES3, 

D Q, 

RCCT23 D, 

CALL, J/INDEX.9 



;0111* 

IDCT03 D, 
RCCT13 D, 
DO, " 
CALL, J/SPEC 



; 1 1 1 1 * 

D&Q D+Q, NfcZ ALU.V&C 0, 

SC RC.FF], " 

Z? 



;ALU CC<Z> EQ 0?(BEN/Z) 



*** SUBSCRIPT RANGE TRAP DETECTED *** 

GET CP ERR/STATUS REG 

SAVE Q-REG IN D-REG 

SAVE D-REG IN RC STACK 

GO SET EXCEPTION TRAP CODE ft RETURN8 

**« HIGH LIMIT OK, GO GET INDEX OPERAND *** 

SAVE MULTIPLIER (SIZE) 

SET UP T1 FOR MULTIPLY ROUTINE 

MOVE SUBSCRIPT TO D-REG 

GO GET INDEXIN (SUBSCRIPT/Q-REG ON RETURN) 

*** RETURN10/12 FROM SPEC *** 
ADD SUBSCRIPT TO INDEXIN 
START SETUP OF 100 
WAS SIZE EQ TO 1? 



;0 

SC SC+1, 
J/TNDEX.3 



*** SIZE OFERAND NOT EQ 1 *** 
100 ->SC 



*********************************************** 

* Patch no. 061, PCS 0390 trapped to WCS 1187 * 

*********************************************** 



;1 

WRITE. DEST 



*** SIZE OPERAND EQ 1 *** 

WRITE RESULT BY GOING TO C-FORK 3WRD: 



ZZ-ESOAA-124.0 ; INDEX .MIC [600,12043 



; P1W124.MCR 600.12043 
; INDEX .MIC C600. 12043 



U 0516, 0000.003D,0180,F800.0000,0430 

U 0517, F001.003F, 01 F0.F847, 0050,0300 

U 051E, F001,OO3F,01F0,F847.0050.O300 

U 051 F. F001.003F,01FO.F847.0050,0300 
U 0591, 0019.2030,79CO,F800,0000,05C2 

U 05C2, 0819,2030,31EO,F800,0000,05C5 
U 05C5, 0810,003A,3180, 3010,0000.0008 



L S 
Index instruction 14-Jan-82 



Fiche 2 Frame L5 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX 11/780 Microcode : PCS 01, FPLA OE, WCS124 
Index instruction : INDEX 

10012 =0110 ;CALL CONSTRAINT BLOCK FOR MUL.S ROUTINE 
10013 

10014 INDEX.3:;0110- 

10015 CALL. J/MUL.S 
10016 
10017 
10018 
10019 
10020 
10021 
10022 
10023 
10024 
10025 
10026 
10027 
10028 

10029 INDEX. 9:; 

10030 Q Q. OR. XL". 303 
10031 

10032 ; 

10033 Q D, 

10034 D~Q.0R.K[.403 
10035 
10036 

10037 D RCCT23, 

10038 IBCCES3 D. 

10039 RETURN8 
10040 
10041 .LIST ;Re-enable full listing 



Sequence 269 



Page 268 j 



. 01 n 

ALU D. NSZ.ALU.V8C 0, 
WRITE. DEST 

ALU D, NfcZ ALU. V£C 0, 
WRITE. DEST 

ALU D, 'H ALU.V£C 0, 
WRITE. DEST 



60 DO (INDEXIN+SU8SCRIPT)*SIZE 

RETURN FROM MUL.S 

SET CONDITION CODES FOR RESULT 

WRITE RESULT BY GOING TO C-FORK a WRD: 

RETURN FROM MUL.S 

SET CONDITION CODES rOR RESULT 

WRITE RESULT BY GOING TO C-FORK a WRD: 

RETURN FROM MUL.S 

SET CONDITION CODES FOR RESULT 

WRITE RESULT BY GOING TO C-FORK a WRD: 



RESTORE Q-REG 



RESTORE D-REG 

SET SUBSCRIPT RANGE TRAP FLAG 

RETURN AND CONTINUE INSTRUCTION 



ZZ-ESOAA-124.0 ; FLOAT .MIC C60O.1204D 
; P1W124.MCR 600.12043 MICR02 1L(03) 

; FLOAT .MIC [600.120411 FLOAT.MIC 



FLOAT. MIC 
K-Jan-82 



H 5 
14-Jan-82 Fiche 2 Frame M5 Seguence 270 
15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE. WCS124 Page 269 



10046 
10047 
10048 
10049 
10050 
10051 
10052 
10053 
10054 
10055 
10056 
10057 
10058 
10059 
10060 
10061 
10062 
10063 
10064 
10065 



.NOBIN 
.TOC 

02 



10042 .TOC 

10043 .TOC 

10044 ; 
10045 



"FLOAT.MIC" 
"Revision 2.14" 
P. R. Guilbault 



01 



00 



Revision History' 



Fix POLY FPD problem that backs up the regs on interrupt 

Add general WCS region 

Convert EMODF to floating faults 

Convert POLYF/D to floating faults 

Fix (MUL,DIV)F2 destination register when floating fault. 

Fix POLYF when argument or partial product is z?ro. 

Remove absolute jumps. 

Add CVTRDL.O tag for Gfch 

Change macro names that deal with conditions codes. 

Delete FLOATW.MIC and put code here. Use .REGION to get it into WCS. 
FLOATW 00 Create this file by merging MULD.MIC, EMOD.MIC. POLY.MIC 
FLOATU Remove macros that were defined MULD.MIC and put in MACRO.MIC 
FLOATW Start of history 

Add LIST to enable listing of WCS code for WCS only listing 

Delete DBL.MIC. CVT2F.MIC. CVTFI2 HIC. AC8FD2.MIC and put code here. 

Start of history 



; 10066 
; 10067 



.8IN 
.NGLIST 



;Disable listing of PCS code for quickie assemblies 



N 5 
ZZ-ESOAA-124.0 ; FLOAT .MIC C60O. 12041 F t D floating poin14-Jan-82 Fiche 2 Frawe N5 Seguence 271 

MICR02 1L(03) H-Jan-82 15:30:16 VAX1 1/780 Microcode : 



, P1W124.MCR 600.12043 
; FLOAT .MIC C600, 12043 



F I D floating point : CMPF 

J0C 



PCS 01, FPLA 0E, WCS124 



Page 270 



U 03C1, 001 D, 0038, 01 C9,F 980, 0998, 65D4 



U 05D4. 0901. 123C, 0185, FAF8,0810,A4E9 



U 04F9. C018,C020, 4580. "A7C. 4070, 0062 



U 04EB, 001D, 3200.0180, F800, 0010, 0592 



U 04ED, CG18.C038,1980,F804,4070.0062 



U 04EF, C010, C038, 0180, -904, 407u, 0062 



10068 
10069 
10070 
10071 
10072 
10073 
10074 
10075 
10076 
10077 
10078 
10079 
10080 
10081 
10082 
10083 
10084 
10085 
10086 
10087 
10088 
10089 
10090 
10091 
10092 
10093 
10094 
10095 
10096 
10097 
10098 
10099 
10100 
10101 
10102 
10103 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
"0115 
(0116 
10117 



F & D floating point : CMPF* 



THE SPECIFIER 1 OPERAND IS COMPARED WITH THE SPECIFIER 2 OPERAND- 
PSL<N> <— SP1 LSS SP2 
PSL<Z> <— SP1 EQL SP2 
PSL<V> <— 
PSL<C> <— 

ENTER HERE FROM DP2,UITH D CONTAINS DST, Q CONTAINS SRC. 

THE COMPARISON IS DONE IN A SIGN-INDEPENDENT MANNER; THE 

CONDITION CODES ARE SET FROM THE SOURCE OR FROM THE 

NEGATED DESTINATION, WHICHEVER IS HIGHER IN MAGNITUDE. 

IF THE SIGNS ARE DIFFERENT, THE TWO TESTS ARE THE SAME (OF COURSE) 

SO NO MAGNITUDE COMPARISON IS DONE. 

MAGNITUDES ARE COMPARED 3Y COMARING THE EXPONENTS, AND THEN 

COMPARING THE FRACTIONS IF THE EXPS ARE EQUAL. 

THE ONLY SPECIAL CASE IS THAT BOTH EXPONENTS = MEANS EQUALITY. 



3C1: 
CMPF: 



=1001 



ALU Q(B), 

SC ALU (EXP) ,FEJ)(EXP> , 

RCrTOJ ALU, 

Q ALU(FRAC),SS ALU15, 

CRK.FLT.OPR, cCk.ubcc 

RCR15J D, 

D D(FR*C),EALU SC-FE, 

S5 SS.XOR.ALU15&SD ALU15, 

CHK\FLT.OPR,CLK.UB?C,EALU? 

; 1001 

ALU RCRi53.XOR.Kr.8000:], 

SET.CC(INST), 

CLR.I8.0PC,PC_PC+1,J/IRD 

. -101 1 

ALU Q-D,CLK.UBCC, 
EAL0?,J/CKDIF0 

; 1 1 01 

ALU KCZER03,SET.CC(INST), 
CLR.I8.0PC,PC_PC+1,J/IRD 

; 1 1 11 

ALU RCCT03, SET.CCdNSD , 
Cl.R.IB.OPCPC PC+1.J/IRD 



GET SRC AND DEST EXPONENTS 

SAVE AND UNPACK SRC 

CHECK FOR -0 AND SET CCS ON EXPS 

SAVE DST, UNPACK DST, GET EXP DIFF 

REMEMBER IF SIGNS D1FFERNET 
SET CC ON EXP DIFF, TEST EXPS=0 

SET CONDITION CODES FROM -SRC2 



EXPSOO - CMP FRACS, TST EXP DIFF 



DST, SRC = 



DST = 0. SRC .NE. 
SET CCS FROM SRC 



U 0592, C010,C038,0180.F904,4070.0062 

U 0593. C010,C038,0180,F904,4070,0062 
U 0596. 00OO.1B3C.0180.F800.0000.065A 

U 0597. C010.CO38.0180.F904. 4070.0062 
U 059A, C018.C020, 4580, FA7C. 4070. 0062 
U 059B, C018.CO20.4580.FA7C, 4070. 0062 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600.12G43 

; P1W124.MCR 600.1204} 

; FLOAT .MIC [600, 12043 F & D floating point : CMPF 



B 6 
F fc D floating poin14-Jan-82 
MICR02 IL(G3) 14-Jan-82 15:30:16 



Fiche 2 Frame B6 



VAX11/780 Microcode : PCS 01, FPLA OE. WCS1 



Seguence 272 



que 



Page 271 



10118 =0010 

10119 CKDIF0: ;0010 



10120 
10121 
10122 
10123 
10124 
10125 
10126 
10127 
10128 
10129 
10130 
10131 
10132 
10133 
10134 
10135 
10136 
10137 
10138 
10139 
10140 
10141 
10142 
10143 



ALU.RCr.T03. SET. Cl( INST), 
CLR.IB.OPCPC.PC+1 ,J/IRD 

ALUJkL"T03,SET.CC(INST), 
CLR.J3.0PC,PC_PC+1,J/IRD 

; 01 1 

ALU?, J/CHECKF 



; 01 1 1 

ALU RCCT03,SET.CC(JNST), 
CLR.I8.0PC.PC PC+1.J/IRD 



; 1010 

ALU.RCR1 53. XOR.KL". 80003, 
SET.CC(INST), 
CLR.I8.0PCPC.PC+1 ,J/IRD 

; 1 01 1 

ALU RCR153.XOR.KC. 80003. 
SET.CC(INST), 
CLR.I8.0PC.PC PC+1,J/IRD 



SRC > DST 

SRC > DST 

SRC(EXP)=DST(EXP) - TEST FRAC DIFF 

DIFF SIGNS: CC SET AS SRC 

DST > SRC 
DST > SRC 



U 0040. 0C01.2O3C,0181,F8O0, 0888,6044 



ZZ-ESOAA-124.0 ; FLOAT .MIC l*6W. 12043 F 

; P1W124.MCR 600,12043 MICR02 1L(03) l4-Jan-82 

; FLOAT .MIC [600,12043 F ft D floating point : ADDF, SUBF 



C 6 



ft D floating poin14-Jan-82 
15:30:16 



Fiche 2 Frame C6 Sequence 273 
VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 272 



U 0044, 0900,123D,01E6,F980,0890.E< C 9 



U 0144. 4018. C038, 1980, F8C5, 4074. 6062 



U 014C, 4008. D438, 0180. F8C5. 4070. 05D1 
U 014D. 0600. 003C. 0180, F800, 0080, C14C 



U 014E, 4008, D438, 0180, F8C5. 4070, 05D1 
U 014F. 0600.003C, 0180, F800.0080, CHC 



10144 
10145 
10146 
10147 
10148 
10149 
10150 
10151 
10152 
10153 
10154 
10155 
10156 
10157 
10158 
10159 
10160 
10161 
10162 
10163 
101 44 
10165 
10166 
10167 
10168 
10169 
10170 
10171 
10172 
10173 
10174 
10175 
10176 
10177 
10178 
10179 
10180 
10181 
10182 
10183 
10184 
10185 
10186 
10187 
10188 
10189 



,T0C 



F ft D floating point : ADDF, SUBF' 



;ADDF2/SUBF2 Short literal. Register 

•HERE FROM IRD, WITH LA CONTAINS SP2 (DST), AND Q CONTAINS SP1 (SRC). 

640: 



ALU.Q, 

D Q,SCQ(EXP) ,SS ALU15, 

CRK.FLT.OPR 



SETUP EXP 



;aDDF2/SUBF2 Register, Register 

HERE FROM IRD, WITH LA CONTAINS SP2 (DST), AND D CONTAINS SP1 (SRC) 
044: 
ADDF: 



144: 



14C: 
ADDFDN: 



; 0* * **01 00 

Q D,RCCT0D.LA, 

D LA(FRAC),SC NABS(SC-FE), 

SBN/ADD.SUB, " 

CHK.FLT.OPR,CLK.UBCC, 

CALL.EALU?,J/ADDFX 

; 1 ****01 00 

R(SP1> KCZEROJ, 

EALU KtZER03,SET.CC(lNST), 

CLR.l80-1.PC PC+2,J/IRD 



; 1 ****1 1 00 

EALU SC,R(SP1) PACK.FP, 
SET.TCdNST), " 
CLR. 180-1, PC PC+2, 
SC7.J/EXPCKR 



HD: 



HE: 



; 1 ****1 1 01 

D_D. RIGHT, SC.SC+1 .J/ADDFDN 



; 1 »***1 1 1 

EALU SC,R(SP1) PACK.FP. 
SET.tC(INST), " 
CLR. 180-1, PC PZ+2. 
SC?,J/EXPCKR 



Itf 



; 1 ****1 1 1 1 

D_D. RIGHT. SC.SC+1 , J/ADDFDN 



SAVE DST OPERAND 

UNPACK DST FP. GET EXP DIFFERENCE 

SS +/- INDICATOR, SET SD 

RSV OPD FAULT IF -0, SET ALUS CC 

CHECK FOR EXPS 

RET FOR RESULT=0 



-;RET FOR ADDF2/SUBF2 
.-PACK RESULT 
;SET COND CODES 
.•UPDATE PC, POP IB 
;CK IF UNDERFL OR OVFL 

■;RET FOR ADD/SUBF2, NORMALIZE AFTR ROUND 
.SHIFT RIGHT, ADD 1 TO EXP 



RET FOR SR^O OR DEST=0, OR 

RET FOR ADDF3/SUBF3 

PACK RESULT FOR *-R-R MODE 

SEV COND CODES 

UPDATE PC, POP IB 

CK IF UNDERFL OR OVFL 

RET FOR ADD/SUBF3, NORMALIZE AFTR ROUND 
SHIFT RIGHT, ADD 1 TO EXP 



U 0244, 001C, 2038,0181 ,F 800, 099B, 6044 



D 6 

F I D floating poin14-Jan-82 
MICR02 1LC03) 14-Jan-82 15:30:16 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600.12043 
; P1U124.MCR 600.1204] MICR02 11 

; FLOAT .MIC C600.1204D F & D floating point : AODF. SUBF 



Fiche 2 Frame D6 



VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 



Sequence 274 



Page 273 



U 0240. 0C1D. 2038.01 E1.F800.019B.607C 



•J 007C, 0901. 123D, 0186, f 980. 0890. E4F9 



U 017C, 4018, C038.1980.F8C5. 4074. 6062 



U 017E. 4008. D438, 0180, F8C5.4070.05D1 
U 01 7F. 0600. 003C, 0180, F800,0080,C17E 



SCJXEXPXB), 

FE LA(EXP),SS ALU15, 

CHK.FLT.OPR,CDc.UBCC,J/ADDF 



GET EXP'S. SS 

LOAD ALU'S U BRANCH COND CODES 



10190 ;ADDF3/SUBF3 ****„ Register, Register 

10191 ;ENTEP HERE AT B.FORK WITH D HAS SP1 OPERAND, LA HAS SP2 OPERAND. 

10192 244: 
10193 
10194 
10195 
10196 
10197 
10198 
10199 

10200 ;ADDF3/SUBF3 ****. Short literal. Register 

10201 ; ENTER HERE AT B.FORK WITH D HAS SP1 OPERAND, Q SP2 OPERAND. 

10202 240: 

10203 ; 

10204 SC D(EXPXB). 

10205 FE Q(EXP),SS ALU15, 

10206 D Q.Q D. 

10207 CDc.USCC 
10208 

10209 =0****1100 

10210 ;0****1100 

10211 RCCTOD D,D D(FRAC). 

10212 SC NAB5(SC-FE), 

10213 SGfl/ADD.SUB, 

10214 CHK.FLT.OPR.CLK.UBCC, 

10215 CALL,EALU?,J/ADDFX 
10216 
10217 =1****1100 



ADDF MEM MODE 

SWAP D, Q 

LOAD ALU'S U BRANCH COND CODES 



D=SRC, RCCTOD=DST 

SS +/- INDICATOR, SD GETS DST SGN 

faDlt if NE6 FP 



; 1****1 100 

r(spi> jitzroi. 

EALU KrZEROJ.SET.CC(INST), 
CLR.TB0-1.PC PC+2.J/IRD 



10218 
10219 
10220 
10221 
10222 

10223 =1****1110 

10224 ADDFDB: ; 1****1 110 

10225 EALU SC,R(SP1) PACK.FP, 

10226 SET. re (INST), " 

10227 CLR.IB0-1,PC PC+2, 

10228 SC?,J/EXPCKR 
10229 

1 0230 ; 1 * * * * 1 1 1 1 

10231 D D. RIGHT, SC SC+1 ,J/ADDFDB 

10232 = 



RETURN HERE WHEN RESULT = 

RESULT 

GOTO NEXT INST 



•.•RETURN HERE WHEN DONE 
;PACK RESULT 



;CK IF UNDEP'L OR OVFL 
•SHIFT RIGHT, ADD 1 TO EXP 



ZZ-ESOAA-124.0 ; FLOAT .MIC C60O.12043 



E 6 



P1W124.MCR 600,1204] 
FLOAT .MIC [600,1204] 



I D floating poin14-Jan-82 
15:30:16 



MICR02 1L(03) 14-Jan-82 

F & D floating point : ADDF, SUBF 



Fiche 2 Frame E6 Sequence 275 

VAX11/780 Microcode : PCS 01. FPIA 0E. WCS124 Page 274 



U 022F, 001 C, 2038,01 81 ,F800,099B,603A 



U 003A, 0900, 123D,01E6,F980, 0890, E4F9 



U 013A, C018,C038, 1980, F8DC, 4074. 6062 



U 01 3E, C003,D438,0180,F8DC,4070,05E1 
U 013F, 0600,003C, 01 80, F 800, 0080. C13E 



10233 
10234 
10235 
10236 
10237 
10238 
10239 
10240 
10241 
10242 
10243 
10244 
10245 
10246 
10247 
10248 
10249 
10250 
10251 
10252 
10253 
10254 
10255 
10256 
10257 
10258 
10259 
10260 
10261 
10262 
10263 
10264 



;ADDF2/SUBF2 Register destination 

;ENTER HERE AT B.FORK, WITH D CONTAINS SP1 OPERAND, AND LA SP2 OPERAND. 

22F: 



SC.D(EXP)(8),FE LA(EXP), 
SSALU15, 

chk\flt.opr,clk.ubcc 

=0****1010 

; 0****1 01 

QJ>.RCCT03j_A. 

D LA(FRAO.SC NABS(SC-FE), 

SGN/ADD.SUB, 

CHK.FLT.OPR.CLK.UBCC, 

CALL.EALU?,J/ADDFX 

=1****1010 

R(PRN) KCZER03, 
EALUKtZER03, SET. CC (INST), 
CLR.TB.OPC,PC_PC+1,J/IRD 

=1****1110 

ADDFDX : ; 1 ****1 1 1 

EALU SCR(PRN) PACK.FP, 

SET.rC(INST), " 

CLR.I8.0PC.PC PC+1. 

SC7.J/EXPCKP " 



GET EXP'S 



2-0PR: UPCC13 IS DON'T CARE 

SAVE DST OPD 

UNPACK DST FP, GET EXP DIFFERENCE 

SS «7- INDICATOR, SET SD 

RSV OPD FAULT IF -0, SET ALUS CC 

CHECK FOR EXPS 



RESULT 

GOTO NEXT INST 



PACK RESULT 
SET COND CODES 
UPDATE PC, POP IB 
CK IF UNDERFL OR OVFL 



; 1 ****1 1 1 i 

DJ>.RIGHT,SC_SC*1 .J/ADDFDX 



.-SHIFT RI6HT, ADD 1 TO EXP 



U 038E. 001D.0038.0181.F800.0998,60D8 



F 6 
ZZ-ESOAA-124.0 ; FLOAT .MIC [600.12043 F(D floating poin14-Jan-82 Fiche 2 Frame F6 Sequence 276 
P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
FLOAT .MIC C600, 12043 FSD floating point : ADDF, SUBF 



275 



U 0008, 0901,123D,0186,F980,0890,E4F9 

U 01D8, F818.C038.19F0.F847. 0074.6300 

U 01DC, 0808. D438.0180.F800, 0070, 05F1 
U 01DD, 0600, 003C, 0180. F800.0080.C1DC 

U 01 DE, 0808. D438, 01 80, F 800, 0070. 0601 
U 01DF. 0600,003C,0180,F800,0080.C1DE 



10265 
10266 
10267 
10268 
10269 
10270 
10271 
10272 
10273 
10274 
10275 
10276 
10277 
10278 
10279 
10280 
10281 
10282 
10283 
10284 
10285 
10286 
10287 
10288 
10289 
10290 
10291 
10292 
10293 
10294 
10295 
10296 
10297 
10298 
10299 
10300 
10301 
10302 
10303 
10304 
10305 
10306 
10307 



;ADDF2/SUBF2 
;ADDF3/SUBF3 



Memory destination 
Register/Memory destination 



ADDF MEM MODE 



.-ENTER HERE AT C.FORK 

; TO MEMORY MODE INSTRUCTIONS 

; WITH D CONTAINS DST (OR SP2), Q CONTAINS SRC (OR SP1) OPERANDS 

38E: 

SCJJ(EXP)(B),FE D(EXP). 
SS ALU15. 
CHK.FLT.OPR.CLK.UBCC 

=0****1000 

; 0****1 000 

RCCTOJ D.D D(FRAC), 
SC NABS(SC-FE), 
SGR/ADD.SUB. 
CHK.FLT.OPR.CLK.UBCC. 
CALL.EALU?,J/ADDFX 

=1****1000 

WR.Z: ; 1****1 000 

EALU KCZER03. 

D KC7ER03, SET. CC (INST) . 

WRITE. DEST.J/WRD 

=1****1100 

ADDFDA: ; 1 ****1 1 00 

EALUSC.D PACK. FP, 

SET.rC(lNST), 

SC7.J/EXPCKM 



D=SRC. RCCT03=DST, SRC-DST EXP 

SS ♦/- INDICATOR, SD GETS DST SGN 
FAULT IF NE6 FP 



; 1 ****1 101 

D.D. RIGHT, SC.SC+1 , J/ADDFDA 



ADDFDF: ; 1****1 110 

EALU SC.D PACK.FP, 

SET.rC(INST), 

SC7.J/EXPCK 



; 1 ****1 1 1 1 

D_D.RIGHT,SC_SC+1 . J/ADDFDE 



WRITE RESULT FLOAT 

RETURN HERE WHEN DONE 
ADDF2/SUBF2: PACK RESULT 

CK IF UNDERFL OR OVFL 

SHIFT RIGHT, ADD 1 TO EXP 

ADDF3/SUBF3: PACK RESULT 
CK IF UNDERFL OR OVFL 

SHIFT RIGHT. ADD 1 TO EXP 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,1204:1 F t D 

; P1W124.MCR 600-12043 MICR02 1L(03) 14-Jan-82 

; FLOAT .MIC [600.1204] F fc D floating point : ADDF. SUBF 



G 6 



floating poin14-Jan-82 
15:30:16 



Fiche 2 Frame 66 Seguence 277 

VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 276 



U 04F9, 0501.203E.0180.F800.0881.010E 



U 04FB. 0001. 323C.C5C8.3EF3, 0000. 05A2 



U 04FD. 0F01.203E. 1980. F800, 0884.6100 



U 04FF. 0901, 203C, 0184, F800. 0108, 64F9 



10308 
10309 
10310 
10311 
10312 
10313 
10314 
10315 
10316 
10317 
10318 
10319 
10320 
10321 
10322 
10323 
10324 
10325 
10326 
10327 
10328 
10329 
10330 
10331 
10332 
10333 



.-HERE BEGINS THE EXPONENT CHECKS OF FLOATING ADD/SUBTRACT 

;ENTER HERE BRANCHING ON EALU Z AND SC .NE. 

; WITH THE FIRST OPERAND EXPONENT IN SC AND PACKED IN Q, 

; THE SECOND OPERAND EXPONENT IN FE, AND UNPACKED FRACTION IN D. 

; SC SHOULD BE BEING LOADED WITH NABS(SC-FE). 



=1001 
ADDFX: 



ALU O.CHK.FLT.OPR, 
DD. LEFT, SI/ZERO, 

sr FE, 

RETURN10E 



RCR15J Q,Q Q(FRAC), 
IDCT13 D, " 
EALU7.J/ADDFSH 



ALU Q,CHK.FLT.OPR, 
D 0,SC KCZEROJ. 
RfTURNTOO 



EALU Z=0, SC .EOL. (SRC IS ZERO) 
CHECK FOR SRC RESERVED OPERAND 
NORMALIZE FRACTION FROM DEST 
GET DEST EXPONENT 
SEND BACK DEST AS RESULT 

EALU Z=0, SC .NEQ. (NORMAL CASE) 

EXPS NE 0: UNPACK SRC FP 

SAVE DST FRAC 

COMPARE SRC - DST EXPS 



EALU Z=1, SC . 
MAKE SURE SRC 
CLEAR RESULT 



EQL. (BOTH ZERO) 
ISN'T RESERVED 



D QCFRAO.FE Q(EXP). 

SD SS. 

J/ADDFX 



EALU Z=1. SC .NEQ. (DEST IS ZERO) 
UNPACK SRC AS RESULT 

SRC SI6N XOR IR1 IS RESULT SIGN 
NOW GO PACK IT UP AGAIN 



H 6 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,120*: 

■ P1W124 MCR 600 12043 

; FLOAT >IC £600,12043 F & D floating point : ADDF/SUBF ROUTINE 



F I D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, F>t_A OE, WCS124 



Fiche 2 Frame H6 



Sequence 278 



Page 277 



U 05A2, 0000,003C, 8DF8,F800,0014,85DD 
U 05A3, 081F,2000,8D83,F800.0014,85EO 
U 05A6, 0810,0014, 01 F8,F800,0091.05C3 
U 05A7, 081D, 0000, 01F8,F800,0091 ,0604 
U 05AA, 0C00,003C,8DF8,F800,0014,85E4 
U 05AB, 081F,0000,8D80,F80O,0014,85ED 

U 05DD, 0D00J23C, 01 C8,FA78, 0108, 6527 
U 05E0, 001B,0000,05CO,F800,0000,05DD 

U 05E4, ODOO,123C,C5F0.2C00.0000.0537 
U 05ED, 0O1B,OO0O,05C0.F80O,0O00,05E4 



10334 
10335 
10336 
10337 
10338 
10339 
10340 
10341 
10342 
10343 
10344 
10345 
10346 
10347 
10348 

10349 =0010 

10350 ADDFSH: ;0010 



T0C " FRO floating point : ADDF/SUBF ROUTINE" 

ROUTINE SHARED BY DIFFERENT MODES OF ADDF, SUBF-- ALSO POLYF AND ACBF 

ENTER HERE WITH : D = FRAC(DST) 

IDCT1J = FRAC(DST) 

FE = EXP(DST) 

Q = FRAC(SRC) 

RC153 = SRC 

SC = NABS (EXP DIFF) 

SS = SIGN(SRC).xor.SIGN(DST).xor.IR<1> 

SD = SIGN(DST) 

NOTE: EXP DIFFERENCE OF UP TO 31 IS SIGNIFICANT BECAUSE OF POLYF USAGE 



10351 
10352 
10353 
10354 
10355 
10356 
10357 
10358 
10359 
10360 
10361 
10362 
10363 
10364 
10365 
10366 
10367 
10368 
10369 
10370 
10371 
10372 

10373 = 

10374 ALO: 
10375 
10376 
10377 
10378 

10379 DFO: 
10380 
10381 

10382 AL1: 
10383 
10384 
10385 
10386 

10387 DF1: 
10388 



EALU SC+KC.1FJ,CLK.UBCC, 
Q.0,J/ALO 

EALU SC+KC.1F3,CLK.UBCC, 
D J)-D\SD .NOT. SD, J/DFO 

; 01 1 

D D+Q.Q 0,SC FE, 

cEk.ubcCj/aBdfpk 

6 D-Q,Q 0,SC FE, 

cCk.ubcCj/nEgck 



; 1 01 

EALU SC+KC.1F3,CLK.UBCC, 
D Q,3 0,J/AL1 



; 1 01 1 

EALU SC+KC.1F3,CLK.U3CC, 
D 0-fl,J/DF1 



D.DAL. SC, 

Q RCR153(FRAC),FE RCR153(EXP), 

E*LU?,J/DSTAP0 " 



Q_0-K[.1],J/AL0 



D DAL.SC, 
Q IDCT13, 
E*LU?,J/SRCAPO 



Q_0-KC.13,J/AL1 



SRC.GTR.DST, SS = O(ADD) 

SET [p EALU<N> TO CHECK SHIFT RANGE 

a GETS POSITIVE SIGN FOR DAL SHirT 

SRC.GTR.DST, SS = KSUB) 

SET UP EALIKN> TO CHECK SHIFT RANGE 

COMPLIMENT FRAC(DST) TO DO SUB 

SRC.EQL.DST, SS = O(ADD) 
ADD 2 ALIGNED FRACS 



SRC.EQL.DST, SS = KSUB) 
SUBTRACT 2 ALIGNED FRACS 



DST.GTR.SRC, SS = O(ADD) 

SET UP EALU<N> TO CHECK SHIFT RANGE 

D GETS SRC FRAC, CLR Q FOR DAL SHF 

DST.GTR.SRC, SS = KSUB) 

SET UP EALIKN> TO CHECK SHIFT RANGE 

D GETS (-SRC FRAC) FOR SUBTRACT 



ALIGN DST FRAC 

Q, FE GET SRC FRAC, EXP 

GO CHECK SHIFT RANGE 



SET Q TO ALL TS FOR SXT OF NEG NUMBER 



ALIGN SRC FRAC 
GET BACK DST FRAC 
GO CHECK SHIFT RANGE 



SET Q TO ALL 1*S FOR SXT OF NEG NUMBER 



ZZ-ES0AA-124.0 ; FLOAT .MIC [600,12043 
; P1W124.MCR 600.12043 MICR02 1L 
; FLOAT .MIC [600,12043 F I D floating point 



F t D floating poin14-Jan-82 
MICR02 11(03) K-Jan-82 15:30:16 



I 6 

Fiche 
VAX1 1/780 Microcode 
ADDF/SUBF ROUTINE 



2 Frame 16 Sequence 279 

: PCS 01, FPLA OE, WCS124 Page 



278 



U 0527, 081D.0014,01F8,F800,0091,05C3 

U 052F, 0839,2014, 1 980, F 800, 0091 .0621 

U 0537, 081D,OOK,01F8,F800,0091,05C3 

U 053F. 0821,203C,4180,F800,0081,05F2 

U 05F2. 0819,00H,4180,F800,0010,0621 

U 0604, 001B,1B10,0580,F800,0010,05C3 

U 05C3, OE00.003C,4180,F800,008C.A611 

U 05C7, 0818,003A,1980,F800.0084.6100 

U 05CB, 081F, 2000, 0183, F800, 0000. 05C3 

U 0611, 0819,0014,4180, F800,0090.C621 

U 0621, 0018, 1B1A, 1980. F840, 0000. 010C 



10389 -0111 

10390 DSTAPO: ;0111 

10391 D D+Q.Q 0,SC FE, 

10392 CDc.UBCr.J/ABDFPK 
10393 

1 0394 ; 1 1 1 1 

10395 ALU Q+KCZER03, 

10396 D ACU.LEFT, SI/ZERO, 

10397 CDC.UBCCSC FE,J/R0UND1 
10398 

10399 =0111 

10400 SRCAPO: ;0111 

10401 D D+Q,Q 0,SC FE, 

10402 cDc.ubcc\j/a5dfpk 

10403 

10404 ;1111 

10405 SC_FE.DJJ.LEFT,SI/ZERO,KE.803 
10406 

10407 ; 

10408 D D+K[.803,CLK.UBCC,J/R0UND1 
10409 

10410 

1 041 1 NEGCK : ; 

10412 ALU 0+K[.13-H,CLK.UBCC,ALU? 

10413 =0011 

10414 ADDFPK: ;0011- 
10415 
10416 
10417 
10418 
10419 
10420 
10421 
10422 
10423 
10424 = 
10425 

10426 ROUND: 
10427 
10428 

10429 ROUND 1 
10430 
10431 



SC SC-SHF.VAL,D DAL .NORM, 
KC.803,J/ROUND " 



; 01 1 1 

D KCZER03,SC KCZER03, 
RPTURNIOO 



; 1 01 1 

D_0-D,SD_NOT.SD,J/ADDFPK 



D.D+KC.803,SC_SC+1,CLK.U3CC 



ALU R(SP1)+KCZER03.RL06, 
ALU7.RETURN10C 



EALU<N> = 0, SHIFT WAS LEO 31 
ADD 2 ALIGNED FRACS 



EALU<N> = 1, SHIFT WAS GTR 31 

DST APPROX W.R.T. SRC 
CLR ALU C31 



EALU<N> = 0. SHIFT WAS LEQ 31 

ADD 2 ALIGNED FRACS 

EALU<N> = 1, SHIFT WAS GTR 31 
SRC APPROX WRT DST, SET CC 

THE ROUNDING IS FOR POLYF 
CK IF NEG RESULT 



NORMALIZE FRAC 

SET UP FOR CONST -81 V; \ MASK 



RESULT 



GET ABS(DIFF) FOR FRAC 



D D+80 FOR ROUNDING 



SAVE REG # FOR R-R OVERFLOWS 
CHECK IF RENORMAL I ZE AGAIN 



J 6 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600.12043 

; P1W124.MCR 600.1 2043 " "" " 

; FLOAT .MIC C600, 12043 F & D floating point : ADDF/SUBF ROUTINE 



F I D floating poinK-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 



Fiche 2 Frame J6 



Sequence 280 



Page 279 



U05D1, 001 8,0039 J 980, F 980, 0000, OE 09 

U 05D3. F80C,003B,01F1,F857,1398,6000 

U 05D5, 001 8,0039, 1 980, F 980, 0000, OE 09 

U 05D7, 0018,0039,4580,F980,0000,OE03 

U 05DF, 0840,0038,0180,F800,1COO,0625 

U 0625, 0811,0038,0180,F900,0088,6636 

U 0636, 0001,003C,0180,F8E8.0000,0062 



U 05E1, 001 8,0039,1 980, F8D8, 0000, 0EO9 

U 05E3, F80C,003B,01F1,F857,139B,6000 

U 05E5, 0018,0039,1980,F8D8,0000,OE09 

U 05E7, 0018,0039,4580, F8D8,0000,OE03 

U 05EF, F80C,003B.01F1,F857,1398,6000 



;0011 

IRD 

;0101 

RCCT03 KCZER03. 

call,j7unorfl 



;0111 

RCCT03KC. 80003, 
CALL,J70VFL 



10432 .-CLEANUP FOR SL/R-R, *-SL/R-R ADDS. RESULT ALREADY STORED. 

10433 .-COME HERE WITH BEN/SC TO TEST FOR OVERFLOW AND UNDERFLOW. 

10434 ;THE REGISTER NUMBER OF THE DESTINATION IS LOST HERE, AND MUST 

10435 ;BE RECONSTRUCTED FROM THE RL06 STACK IF OVER/UNDERFLOW EXISTS. 

10436 =0001 

10437 EXPCKR: ;0001 

10438 RCCT03 KCZER03, 

10439 CALL,J7UNDRFL 
10440 
10441 
10442 
10443 
10444 
10445 
10446 
10447 
10448 
10449 
10450 

10451 =1111 
10452 
10453 
10454 
10455 
10456 
10457 
10458 
10459 
10460 
10461 

10462 .-CLEANUP FOR *-R ADDS. RESULT ALREADY STORED IN R(PRN). 

10463 .-COME HERE WITH BEN/SC TO TEST FOR UNDERFLOW AND OVERFLOW 

10464 =0001 

10465 EXPCKP: ;0001 

10466 R(PRN) KCZER03, 

10467 CALL.J7UNDRFL 
10468 

10469 ;0011 

10470 IRD 
10471 

10472 ;0101 

10473 R(PRN) KCZER03, 
10*^ CALL,j7UhlDRFL 
10475 

10476 OVFLP: ;0111 

10477 R(PRN) KC. 80003, 

10478 CALL.J70VFL 

10479 =1111 

10480 ;1111 

10481 IRD 



; 1 1 1 1 

D_RLOG. RIGHT 

SCJXEXPXA), D_RCCT03 
XisO J/IRD 



ZERO EXP, UNDERFLOW, SET TRAP STACK 
SET CES FOR 'JNDERFLOW 



01 TO FF FOR EXP, OK 



NEG EXP, UNDERFLOW, SET TRAP STACK 
SET CES FOR UNDERFLOW 



> FF EXP, OVERFLOW, SET TRAP STACK 
SET CES FOR OVERFLOW 



RETURN HERE FOR UNDERFLOW, OVERFLOW 
PUT REG # IN SC, GET RESULT 
STORE IT AND GET OUT 



ZERO EXP, UNDERFLOW, SET TRAP STACK 
SET CES FOR UNDERFLOW 



01 TO FF FOR EXP, OK 



NEG EXP, UNDERFLOW, SET TRAP STACK 
SET CES FOR UNDERFLOW 



> FF EXP, OVERFLOW, SET TRAP STACK 
SET CES FOR OVERFLOW 



RETURN HERE FOR UNDERFLOW, OVERFLOW 



U 05F1, OFOO,003D,0180,F800.0000,OE09 

U 05F3, COOO,C03C.0180,3004,4000,0062 

U 05F5, OF00.003D,0180,F800,0000,OE09 

U 05F7, 0818,0039,4580,F800.0000,0E03 

U 05FF, COO0,C03C, 0180, 3004, 4000,0062 



K 6 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600.12043 

; PI W1 24 .MCR 600-1 2043 

; FLOAT .MIC [600, 12043 FRO floating point : ADDF/SUBF ROUTINE 



F & D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 



Fiche 2 Frame K6 



Sequence 281 



Page 280 



U 0601, 0FOO,003D,0180,F8O0,O00O,0E09 

U 0603, FOOO,003F,01FO,F847, 0000, 0300 

U 0605, 0FOO,003D. 0180, F800, 0000, 0E09 

U 0607, 0818, 0039,4580, F800, 0000, 0E03 

U 060F. FOO0,003F,01F0,F847.O000,0300 



;0011 

CACHE DCINST.DEP3, 
CLR.lB.OPC,PC_PC+1.J/IRD 

; 01 01 

00, 
CALL.J/UNDRFL 



.0111 

D KC. 80003, 

cAll.j/ovfl 



; 1 1 1 1 

CACHE DCINST.DEP3, 
CLR.lB.OPCPC PC+1.J/IRD 



ZERO EXP, UNDERFLOW, SET TRAP STACK 
60TO SET CES FOR UNDERFLOW 



01 TO FF FOR EXP, OK 



NEG EXP, UNDERFLOW, SET TRAP STACK 
60TO SET CES FOR UNDERFLOW 



> FF EXP, OVERFLOW, SET TRAP STACK 
60TO SET CES FOR OVERFLOW 



WRITE DEST FOR UNDERFLOW, OVERFLOW 



10482 .-CLEANUP FOR *-» ADDS. RESULT IN D, ADDRESS IN VA. 

10483 ;COME HERE WITH BEN/SC TO TEST FOR UNDERFLOW AND OVERFLOW. 

10484 =0001 

10485 EXPCKM: ;0001 

10486 DO. 

10487 CAlL.J/UNDRFL 

10488 

10489 

10490 

10491 

10492 

10493 

10494 

10495 

10496 

10497 

10498 
10499 

10500 =1111 

10501 DEST: 
10502 
10503 
10504 
10505 
10506 

10507 .-CLEANUP FOR *-*-* ADDS, RESULT IN D, DEST NOT EVALUATED YET. 

10508 ;COME HERE WITH BEN/SC TO TEST FOR UNDERFLOW AND OVERFLOW. 

10509 =0001 

10510 EXPCK: .-0001 

10511 D 0, 

10512 CAlL.J/UNDRFL 
10513 

1 051 4 WRDST : ; 001 1 

10515 WRITE. DEST 
10516 

10517 ;0101 

10518 D 0, 

10519 CAlL,J/JNDRFL 
10520 

10521 OVFLK: ;0111 

10522 D KC.8O0O3, 

10523 C*LL,J/OVFL 

10524 =1111 

10525 ;1111 

10526 WRITE. DEST 



ZERO EXP. UNDERFLOW, SET TRAP STACK 
GOTO SET CES FOR UNDERFLOW 



01 TO FF FOR EXP, OK 



NEG EXP, UNDERFLOW, SET TRAP STACK 
GOTO SET CES FOR UNDERFLOW 



> FF EXP, OVERFLOW, SET TRAP STACK 
GOTO SET CES FOR OVERFLOW 



WRITE DEST FOR UNDERFLOW, OVERFLOW 



ZZ-ESOAA-124.0 ; FLOAT .MIC C6O0.12043 

; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 

; FLOAT .MIC C600, 12043 FRO floating point : MULF 



L 6 



F 6 D floating poin14-Jan-82 

" - "" 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 



Fiche 2 Frame L6 



Sequence 282 



Page 281 



U 0220, 001C.2038.01C9,F800,0998,664C 
U 064C. 0001 ,323C,0180,F980, 0100. 8069 
U 0069. C018. C038. 1980, F8DC .4070.0062 



U 006B. 0900, 003D,BDFD,F900, 0084. 665D 



U 006D, 0000,003C, 0180. F800, 0800, 0069 

U 006F. 0000.003C. 0180, F800. 0800. 0069 
U 007B. 0000, 1B3C. 0180. F800. 0000. 013B 



F & D floating point : MULF* 



Q D(FRACMB). 

StjXEXPMB). 

FE.LA ~XP). 

SS ALU15.CHK.FLT.0PR, 

CLR.UBCC 



RCtT03_Q,FE_SC+FE, 
EALU? 



10527 .TOC 
10528 

10529 ;HULF, *-R 

10530 ;FNTER HERE AT B.FORK WITH LA CONTAINS DST, D CONTAINS SRC 
10531 

10532 220: 

10533 MULF 2: 
10534 
10535 
10536 
10537 
10538 
10539 
10540 
10541 

10542 =01001 

10543 MULF.O: ; 01 001 

10544 R(PRN) KCZER03.SET.CC (INST), 

10545 CLR.IB.0PC,PC_PC+1,J/IRD 
10546 

1 0547 ; 01 01 1 

10548 D LA(FRAC), 

10549 Lt.RCCT03,Q.O. 

10550 SC KC.FFF93, 

10551 SS~SS.X0R.ALU15£SD ALU15, 

10552 CACL.J/MULFX 
i 0553 

10554 ; *********************************************** 

10555 ;* Patch no. 088. PCS 0068 trapped to WCS 1198 * 

10556 ;*********************************************** 
10557 
10558 
10559 
10560 
10561 
10562 
10563 
10564 
10565 

10566 =11011 
10567 
10568 = 



GET SRC FRAC 

GET SRC EXP 

GET DST EXP 

SS GETS SRC SIGN, CHK -0, 

CLOCK DST EXP 



PROD EX/ - SUM OF EXP'S 

DST EXP (EALU.Z), SRC EXP (SC) = 0? 



PROD = 0: SET COND CODES 



GET DST FRAC 

GET SHIFT VALUE -7 

GET RESULTANT SIGN TO SS 



; 01 101 

ALU LA.CHK.FLT.OPR, 
J/MOLF.O 



;01111 

ALU LA,CHK.FLT.0PR, 
J/MOLF.O 



; 11011 

ALU?, J/ADDFDX 



,-RENORMAUZE (IF NEEDED), PACK & STORE 



ZZ-ESOAA-124.0 ; c LOAT .MIC C600.120A] 
; P1U124.MCR 60O.120AJ 
; FLOAT .MIC [600,12043 



n 6 
F tD floating poin14-Jan-82 



?pom14 
5:30^16 
F & D floating point : MULF 



Fiche 2 Frame M6 



VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 



Sequence 283 



Page 282 



U 038F. 001D, 0038,01 C9,F800,099B, 6651 

U 0651, 0001,323C,018C.F980.0100,81E9 

U 01E9, F818,C03B,19F0,F847,0074.6300 

U 01EB, 0901, C03D,BDFD,F 900,0084,6650 

U 01ED, OF01,003C.0150,F800,0800,01D8 

U 01EF, OF01,003C,0180,F800.-1800,01D8 

U 01FB, 0000, 1B3C, 01 80, F 800, 0000, 01 DC 



10569 ;MULF, *-* OR *-•-* 

10570 : ENTER HERE WITH D CONTAINS DST, Q CONTAINS SRC 

10571 &38F: 

10572 MULF: ; 

10573 Q(FRAC)(8),SC Q(EXPMB). 

10574 FE D(EXP). 

10575 SS ALUl5,CHK.FLT.0Prt,CLK.UBCC 
10576 

1 0577 ; 

10578 RCCTOJ Q, 

10579 FE SC+FE, 

10580 EACU? 
10581 
10582 =01001 ; 01 001 



EALU KCZEROJ .DJCCZEROJ , 

SET.rC(INST), 

WRITE. DEST,J/yRD 

; 01 01 1 

D JXFRAO.LCJKCTOJ.Q 0, 
St KC.FFF93 

SS~Ss!xOR.ALUl5fcSD ALU15, 
CACL,J/MULFX 



10583 
10584 
10585 
10586 
10587 
10588 
10589 
10590 
10591 
10592 
10593 
10594 
10595 
10596 
10597 
10598 
10599 
10600 

10601 =11011 ; 11011 

1™C2 ALU?. J/ADDFDA 

10603 = 



; 01 1 01 

ALU D.CHK.FLT.0PR,D 0, 
J/WR.Z 

ALU D,CHK.FLT.0PR,D 0, 
J/WR.Z 



6ET SRC FRAC, EXP 



GET 2 TIMES MULTI'CAND TO LC 



WRITE RESULT FLOAT 



6ET DST FRAC 

GET SHIFT VALUE -7 

GET RESULTANT SIGN TO SS 



RENORMALIZE (IF NEEDED). PACK & STORE 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600, 12043 

; P1W124.MCR 600.12043 

: FLOAT .MIC C600. 12043 F & D floating point 



F fc D floating poinK-Jan-82 
MICR02 1LC03) 14-Jan-82 15:30:16 



MULF 



N 6 

Fiche 2 F rame N6 Sequence 284 
VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 283 



U 065D. 0D50,0038, 8584, TAF8, 0084,6398 

U 0398, 0203, 0C3D, 01 80, FA78, 0000, 0350 

U 039A, OC18,0038,41EO,FAF8.0081,0664 

U 0664, OEOO,003C,0180,FA78,008C.A669 

U 0669, 080D,0016,9D80,F800,0094,A010 



FRACTION MULTIPLY ROUTINE - USES INTEGER MULTIPLY SUBR 
INPUTS: 



OUTPUTS: 



10604 

10605 

10606 

10607 

10608 

10609 

10610 

10611 

10612 

10613 .TEMPORARIES 

10614 

10615 MULFX 

10616 

10617 

10618 

10619 

10620 =0* 

10621 



SC = -7, D = MULTIPLIER FRACTION, SS = RESULT SIGN, 

" HAS SUM OF INPUT EXPS, LC HAS 2 * MULTIPLICAND FRACTION, 

D = ROUNDED PRODUCT FRACTION, 
SC = PRODUCT EXPONENT, 
SS & SD = PRODUCT SIGN 



RCR153, LA, L8, Q 



10622 
10623 
10624 
10625 
10626 
10627 
10628 
10629 
10630 
10631 
10632 
10633 
10634 



D DAL.SC, 

RtR153 LC. RIGHT, SI/ZERO, 

SC KC.C3,SD SS 



;0* 

ALU J) (A), 

D D.RIGHT2,5I/ZER0,LA8 RCR153, 

CAtL,8EN/MUL,J/MULPP " 



SC_FE,D_Q,QJ>,RCR153JCC803 



SC SC-SHF.VAL,D DAL. NORM, 
LAS_RCR153 



D D+LB,CLK.UBCC,SC SC-KC7C3. 
RPTURN10 



SHIFT M'lER READY, RCR153.M'CAND 
SET LOOP CT FOR 26. BITS 

LB.M'CAND 

CALL MULTIPLICATION ROUTINE 

•ALWAYS POS PROD 

SHIFT LEFT JUSTIFIED 

ROUNDING 



ZZ-ES0AA-124.0 ; FLOAT .MIC C600, 12043 

; P1U124.MCR 600.1204] 

; FLOAT .MIC C600. 12043 F & D floating point : DIVF 



B 7 
F ft D floating poin14-Jan-82 



?poinl4-Jan-8Z Fiche 2 Frame B7 Seguence 285 

5:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 



U 0221. 001 C. 2038. 01 C9.F800. 0998. 66/E 
U 067E. 0001. 323C. 0180. f 980. 0181 ,0589 



U 0589. 0000.003C. 0180, F800. 0800, 0300 
U 058B, 0000.003C. 0180, F800. 0100 .A3BC 



U 058D. 0000.003C.0180.F800.0800.03D0 
U 058F. 0000.003C.0180.F800. 0800, 0069 

U 03BC, 0900. 003D.B985.F900. 0884. 632? 
U 03BD, 0000,1B3C.0180,F800,0000.013E 
U 03D0, 0818,0039,4580,F800,0000,ucOO 

U 03D1. C018. 0038, 4580, F8DC, 4000, 0062 



Fiche 2 Frame 67 
ocode : PC 

F & D floating point : DIVF" 



Page 284 



10635 .TOC 
10636 

10637 ;DIVF: *-R 

10638 :ENTER HERE AT B.FORK WITH LA CONTAINS DST (D'END), D CONTAINS SRC (D'SOR) 

10639 221: 

10640 0IVF2: ; ; 

10641 Q D(FRAC)(B).SC DCEXPKB), ;6ET SRC FRACTION 

10642 CDc.UBCC, 

10643 FE.LA(EXP). ;CK IF NE6 FPO 

10644 SS ALU15.CHK.FLT.OPR 

10645 

10647 SC.FE.FE.SC.RCCT03 Q.EALU? -SWAP 2XPS 

10648 

10649 ; *********************************************** 

10650 ; * Patch no. 087, PCS 067E trapped to WCS 1197 * 

10651 ; *********************************************** 
10652 
10653 =1001 ;1001 



******************************» **************** 

* Patch no. 022. PCS 058B trapped to WCS 1159 * 

*********************************************** 



10654 
10655 
10656 
10657 
10658 
10659 
10660 
10661 
10662 
10663 
10664 
10665 
10666 
10667 

10668 =0 

10669 DIVF3: 
10670 
10671 
10672 
10673 
10674 
10675 
10676 
(0677 =0 

10678 DIVF 6: ;0- 
10679 



ALU„LA,CHK.FLT.0PR,J/DIVF6 
FE.SC-FE.J/DIVF3 



;D'S0R = 0: :J0 DIVIDE 
•D'SOR TO L8 



ALUJ.A.CHK.FLT.0PR.J/DIVF6 
ALU.LA.CHK.FLT.OPR.J/MULF.O 



D LA(FRAC), 

S5 SS. XOR.ALU15&SP ALU15, 
LC RCCT03.CHK.FLT.OPR, 
SC KC. 193, CALL, J/DIVFX 



.1 

ALU?, J/ADDFDX 



10680 
10681 
10682 

10683 



DJCC. 80003, CALL, J/DIV8Y0 



. ! 

R(PRN) KC. 80003, 
CLR.IBTOPCPC PC+1,J/IRD 



D'SOR = 0: NO DIVIDE 

D'END = 

GET D'END FRAC, RESULT SIGN 
D'SOR TO LB, SET LOOP CT FOR 25. 

TEST FOR NORM, PACK & STORE 
SET CES FOR FL DIV BY 



U 038D, 001D,0038,01C9,F800.099B,6683 

U 0683, 0001,323C, 0180. F980. 0181 ,0619 

U 0619, 0001,003C,0180,F800,0800,03EO 

U 0618, 0000,003C,0180,F800,0100,A3D8 



ZZ-ES0AA-124.0 ; FLOAT .MIC C600,120AJ 

; P1W124.MCR 600,12043 

; FLOAT .MK [600.1204:1 F ft D floating point 



C 7 
F ft D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



Fiche 2 Frame C7 



DIVF 



VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 



Sequence 286 



S 



Page 285 



U 061D, 0001,003C,0180,F800,0800,03EO 
U 061 F, OF 01, 003C, 01 80, F 800,0800,0108 

U 03D8, 0901, 003D, 8985. F 900, 0884, 6327 
U 03D9, 0000, 1B3C, 0180, F800, 0000, 01DC 



10684 ;DIVF: *-*, *-*-* 

10685 : ENTER HERE WITH D CONTAINS DST, Q CONTAINS SRC 

10686 &38D: 



10687 DIVF: 

10688 

10689 

10690 

10691 

10692 

10693 

10694 

10695 =1001 

10696 

10697 

10698 

10699 

10700 

10701 

10702 

10703 

10704 

10705 

10706 

10707 

10708 

10709 

10710 

10711 =0 

10712 DIVF4: 
10713 

10714 
10715 
10716 
10717 
10718 
10719 



Q Q(FRAC)CB), 

Stj2<EXPXB>,CLK.UBCC, 

FE D(EXP),SS ALU15.CHK.FLT.OPR 



SC.FE.FE.SCRCCTOJ.Q.EALU? 



; 1 001 

ALU_D,CHK.FLT.0PR.J/DIVF8 

FE.SC-FE.J/DIVF4 



6ET SRC FRACTION 
CK IF NEG FPO 

SWAP EXPS 

D'SOR = 0: NO DIVIDE 

D'SOR TO L8 



*********************************************** 

* Patch no. 021, PCS 061B trapped to WCS 1158 * 

*********************************************** 



; 11 01 

ALU.D.CHK.FLT.0PR.J/DIVF8 



; 1 1 1 1 

ALU I D,CHK.FLT.OPR,D 0, 
J/WR.Z 



D D(FRAC), 

S5 SS. XOR.ALUl5ftSD ALU15. 

LC"RCCTO],CHK.FLT.OPR, 

SC_KC.19],CALL,J/DIVFX 

. ! 

ALU?, J/ADDFDA 



;D'SOR = 0: NO DIVIDE 

•D'FND = 0, THEREFORE RESULT 

;6ET D'END FRAC, RESULT SIGN 
•D'SOR TO L8, SET LOOP CT FOR 25. 

;TEST FOR NORM, PACK ft STORE 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600, 12043 

; P1W124.MCR 600,12043 

; FLOAT .MIC C600. 12043 F & D floating point 



D 7 
F SD floating poin14-Jan-82 
MICR02 1L(03) K-Jan-82 15:30:16 



Fiche 2 Frame D7 



DIVF 



VAX11/780 Microcode : PCS 01. FPLA 0E, WCS124 



Sequence 287 



Page 286 



U 0323, 0C18.0038.41FC.FAF8. 0080, 8694 



U 0327, 0431,0C00,06A8,F800.OO84,A323 

U 0694, OEOO,003C,0180,FA76,008C,A6A6 

U 06A6, 080D, 001 6, C 580, F 800,0094,8001 
U 03EO, 0818, 0039, 4580, F800, 0000, 0E00 
U 03E1, F000,003f,01F0,F847, 0000, 0300 



FRACTION DIVIDE ROUTINE - RESTORING METHOD. ENTER AT DIVFX 



INPUTS: 



OUTPUTS: 



TEMPORARIES: RCR153, LA, LB, 



10720 
10721 
10722 
10723 
10724 
10725 
10726 
10727 
10728 
10729 
10730 
10731 
10732 
10733 
10734 

10735 =011 

10736 DIVFO: 
10737 
10738 
10739 
10740 
10741 

10742 DIVFX: 
10743 
10744 
10745 
10746 
10747 

10748 DIVF1: 
10749 
10750 
10751 
10752 
10753 
10754 

10755 =0 

10756 DIV 8: ;0 

10757 D KC. 80003, CALL. J/DIVBYO 
10758 

10759 ;1 

10760 WRITE. DEST,J/WRD 



D = DIVIDEND FRACTION 

LC = RCCT03 = DIVISOR FRACTION 

SS = QUOTIENT SIGN 

SC = 19 (HEX) 

FE = DIFFtRENCE IN INPUT EXPONENTS 

Q<6:0> = 

D = ROUNDED QUOTIENT FRACTION 

SS = SD = QUOTIENT SIGN 

SC = BIASED QUOTIENT EXPONENT 



; 01 1 

RCR153 ICE. 803, 

D Q.Q O.SC.SC+FE.SD SS. 

J7DIVF1 



ALU D-LC, 

DK/5;V,w O.LEFT, 

SHF/LEFTTSi/DIV. 

SC .'iC-KC.13.MUL? J/DIVFO 



SC SC-SHF.VAL.f' DAL. NORM, 
LAS ^R153 



SET UP FOR PACK fP 

SC HAS -1 (SHOULD HAVE 
KC.873 IN NEXT STATE) 



LOOP FOR DIV 
NORMAILIZE fIRST 



D D+L8,CLR>.ui3CC,SC_SC+KC.883, .'ROUNDING, AMD ADD 80 TO ADJUST EXP 
RPTURN1 



;SET CES TOR FL DIV BY 



E 7 
ZZ-ESOAA-124.0 ; FLOAT .MIC [600,12043 F I D floating poin14-Jan-82 Fiche 2 Frame E7 Seguence 288 

; P1W124.MCR 600,12043 MICR02 1L(03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA 0E, WCS124 Page 
; FLOAT .MIC C600. 12043 F & D floating point : CMPD 



287 



U 0382. 0C10.0038.C5C9.3D08.0883.06B1 

U 06B1. 0910.1438.C985.3D00.0993.02E1 

U 02E1. C010,C038,0180,F904,4070,0062 

U 02E3. 001D.1200.C5F0.2D08.0010.A432 

U 0432. 0C10. 1238, C9F0.2EF8. 0000,0623 
U 0433, 0010,0038,0180, FAF8, 0000, 065A 

U 0623, C010.C038,0180,F904,4070,0062 
U 0627, 001D, 7800,0180, F 800, 0000, 0633 



10761 

10762 

10763 

10764 

10765 

10766 

10767 

10768 

10769 

10770 

10771 

10772 

10773 

10774 

10775 

10776 

10777 

10778 

10779 

10780 

10781 

10782 

10783 

10784 

10785 

10786 

10787 

10788 

10789 

10790 

10791 

10792 

10793 

10794 

10795 

10796 

10797 

1C798 

10799 

10800 

10801 

10802 

10803 

10804 

10805 

10806 

10807 

10808 

10809 

10810 

10811 

10812 

10813 

10814 



.TOC 



F ft D floating point 



.•DOUBLE PRECISION FLOATING POINT CMP. 
.•ENTER HERE WITH SRC<H.L> - RCCTOJ, Q; 



CMPD" 

DST<H.L> = RCCT13, D. 



ALGORITHM: 

SIMILIAR TO CMPF. WITH THE FOLLOWING SET OF TESTS BEING USED 
FOR MAGNITUDE COMPARISON: 

1 . EXPONENTS 

2. FRACTIONS :23> (BIT IS MOST SIGNIFICANT IN THIS NOTATION) 

3. FRACTI0N<24:39> 

4. FRACTI0N<40:55> 

*** NOTE *** 

THIS ROUTINE HAS A MAJOR BUG, STARTING AT THE MICROINSTRUCTION 
AFTER THE ONE LABELLED 'SETLl" AND CONTINUING TO THE END OF THE 
INSTRUCTION. SEE THE ECO LISTING FOR CORRECTIONS. 



382: 
CMPD: 



=*01 



=**10 



=0011 
GETL1 



IDCT13 D, D.Q. ALU RCCT13, 
SC ALUTEXP). Q ALUTFRAC), 
SSJU.U15. CHK.FLT.OPR 

IDCT23 D. ALU RCCTOJ, fE SC. 

D ALU(FRAC), " 

SC ALU(EXP), CLK.UBCC, 

SS SS. XOR.ALUlSfcSD ALU15, 

CHR.FLT.OPR, SC.GTTO? 



ALU RC CT03, SET. CC (INST), 
CLR.IB.OPC.PC PC+1, 
J/IRD 



ALU D-Q,EALU_SC-FE, CLK.UBCC, 
Q IDCT13, LC.RCCT13, 
EAlU? 



RCR153 LC, DO, 0.IDCT23, 
EALU?,J7GETLT 



R[R153_LC, J/CHECKF 



ALU RCCT03,SET.CC(INST), 
CLRTlB.OPC.PC.PC+1 .J/IRD 



ALU.Q-D. WORD, ALU?, J/CHECKH 



SAVE DST<L>, GET DST<H> 
UNPACK DST<H> 
AND CHECK FOR -0 

SAVE SRC<L>, GET SRC<H> 

UNPACK SRC<H>, SET CC ON EXPS 
SS=0 IF SIGNS EQUAL 
TEST FOR -0 SRC I DST 



DST = 0, CC SET BY SRC 



SRC - DST FOR FRAC, EXPS 

GET DST<L> IN Q, SRC<H> IN LC 

BEN ON SS - EALU N&Z KNOWN 



RCR153 DST<H>, D=DST<L>, Q=SRC<L> 
COMPARE SRC - DST EXPS 

SGNS DIFF - SET CCS FROM -DST 
(CANT SET FROM SRC, MAY BE 0) 



SRC (EXP) > DST (EXP), CC.SRC 

CHECK SRC - DST FRAC<H>'S **SEE ECO** 



*********************************************** 

* Patch no. 008, PCS 0627 trapped to WCS 1148 * 

*********************************************** 



ZZ-ES0AA-124.0 ; FLOAT .MIC C600.12043 

; P1U124.MCR 600.12043 MICR02 1L<03) 

; FLOAT .MIC [600. 12043 F & D floating point : CMPD 



F 7 

F t D floating poin14-Jan-82 
14-Jan-82 15:30:16 



Fiche 2 Frame F7 



VAX11/780 Microcode : PCS 01, FPLA OE. WCS124 



Sequence 289 



Page 288 



U 062B. C018.C020, 4580. FA7C4070, 0062 

U 0633. C010.C038.0180.F904.4070.0062 
U 0637. 001D,3BOO,0180.F800.0000,0643 

U 0638. C018.C020.4580.FA7C.4070.0062 

U 0643, C010.C038.0180.F904.4070.0062 
U 0647, 0000, 1B3C. 0180, F 800, 0000. 065A 

U 064B, C018.C020,4580,FA7C.4070,0062 

U 065A, C018,C020, 4580, FA7C, 4070, 0062 
U 065B, C010,C038,0180,F904, 4070, 0062 
U 065F, C018,C038,1980,F804,4070,0062 



ALU.RCR1 53. X0R.K.C. 80003, 
SET.CC(INST). 
CLR.IB.0PC.PC_PC+1, J/IRD 



10815 

10816 

10817 

10818 

10819 =;END 

10820 

10821 =0011 

10822 CHECKH: ALU RCCT03.SET.CCCINST), 

10823 CLR.IB.OPC.PC PC+1, 

10824 J/IRD 

1 0825 ; 

10826 

10827 A LU.Q-D , LONG, ALU?, J/CHECKL 

10829 ALU RCR1 53. XOR.KC. 80003, 

10830 SET.CC(INST), 

10831 CLR.IB.OPC.PC PC+1, J/IRD 

10832 =;END ; = 

10833 

10834 =0011 

10835 CHECKL: ALU.RCCT03, SET. CC( INST), 

10836 CLR.I8.0PC.PC.PC+1. 

10837 J/IRD 

1 0838 ; 

10839 ALU?, J/CHEOCF 

10841 ALU_RCR153.XOR.KC. 80003, 

10842 SET.CC(INST), 

10843 CLR.IB.OPC.PC PC+1 .J/IRD 

10844 =;END ; 

10845 =1010 

10846 CHECKF: ALU RCR1 53. XOR.KC. 80003, 

10847 SETTCC(INST), 

10848 CLR. IB. OPC.PC.PC+1. J/IRD 

10850 ALU RCCT03.SET.CCCINST). 

10851 CLR. IB.OPC.PC.PC+1 .J/IRD 

10853 =1111 ALU KCZER03.SE7.CC (INST), 

10854 CLR.I8.0PCPC PC+1, J/IRD 

1 0855 ; = 



DST(EXP) > SRC(EXP), CC.-DST 

SRC<H> > DST<H>, CC.SRC 

SRC<H>=DST<H> - TEST SRC<M>-DST<M> 
DST<H> > SRC<H>, CC_-DST 



;SRC<M> > DST<M>, CC_SRC 
;SRC<M>=DST<M> - TEST SRC<L>-DST<L> 

# 

;DST<M> > SRC<M>, CC..-DST 



DST<L> > SRC<L>, CC -DST 
UPDATE PC, POP IB FOR NXT INST 

SRC<L> > DST<L>, SRC SET CC 



SRC<L> = DST<L> 

UPDATE PC, POP IB. GOTO NXT INST 



F ft 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600, 12043 
P1W124.MCR 600-120AJ ~ 

FLOAT .MIC C600.120AJ F ft D floating point 



G 7 



D floating poin14-Jan-82 
MICR02 1L(03) K-Jan-82 '5:30:16 VAXl 1/780 Microcode 



UNPACK DOUBLE OPERANDS 



Fiche 2 Frame 67 Sequence 290 

PCS 01, FPLA 0E, WCS124 Page 



289 



U 06CA, 0000,003C,5D80,F900,0104,66CE 



U 06CE, 0910, C038,CDF9,3C00, 0870, 0720 



U 0720, 0010, 0038, CDF4,2EF8, 0081 ,0731 



10856 
10857 
10858 
10859 
10860 
10861 
10862 
10863 
10864 
10865 
10866 
10867 
10868 
10869 
10870 
10871 
10872 
10873 
10874 
10875 
10876 
10877 
10878 
10879 
10880 
10881 
10882 
10883 
10884 
10885 
10886 
10887 
10888 
10889 
10890 
10891 
10892 
10893 
10894 
10895 
10896 
10897 
10898 
10899 
10900 
10901 
10902 
10903 
10904 
10905 
10906 
10907 
10908 
10909 



.TOC 



F ft D floating point : UNPACK DOUBLE OPERANDS' 



ROUTINE TO UNPACK DOUBLE FLOATING POINT OPERANDS. 
INPUTS: RCCT03 = OPERAND 1 HIGH LONGWORD 

Q = RCCT33 = OPERAND 1 LOW LONGWORD 

D = OPERAND 1 LOW LONGWORD, WITH HIGH AND LOU WORD SWAPPED 

RCCT13 = OPERAND 2 HIGH LONGWORD 

RCCT6J = OPERAND 2 LOW LONGWORD 

SC = -7 

IR<2:1> = TYPE OF OPERATION BEING PERFORMED: 

00 = ADD, 01 = SUB, 10 = MUL, 11 = DIV 



1: 
2: 



=00 
OUTPUTS: 



(STARTING WITH THE OPERANDS IN <RCCTOJ,Q> AND <RCCT13,D>, 
THE FOLLOWING SEQUENCE OF STATES SETS THINGS UP RIGHT: 
RC6 D, D„0, SC 16. 
D DAl.SC, RC3JJ, SC.-7, CALL UNPACK ) 



IDCT03 = OPERAND 1 FRACTION <H> 

Q = IDCT23 = OPERAND 1 FRACTION <L> 

RCCT53 = IDCT13 = OPERAND 2 FRACTION <H> 



D 

SC 

FE 



SS 



OPERAND 2 FRACTION <L> 
- OPERAND 2 EXPONFNT 

= NABS(EXPONENT DIFFERENCE) IF IR<2:1> = 00 OR 01, 
= SUM OF EXPONENTS IF IR<2:1> = 10, 

= (EXPONENT OF OPERAND 1) - (EXPONENT OF OPERAND 2) IF IR<2:1>=11 
= (SIGN OF OPERAND 1) .XOR. (SIGN OF OPERAND 2) .XOR. IR<1> 



TEMPORARIES: 



RETURNS; 



RCCTOJ, RCCT13, RCCT33, RCCT63 PRESERVED 

IDCT33 HOLDS OPERAND 1 <L>, 
RCR15J HOLDS OPERAND 1 <H>, 
LA, LB, LC HOLD VARIOUS THINGS 

RETURN a 1 IF OPERAND 1 = 

RETURN » 2 IF OPERAND 1 <> , OPERAND 2 = 

RETURN 3 3 IF BOTH OPERANDS ARE NON-ZERO 



UNPACK: ; 

LC_RCCT03, 
FElKC.73 

IDCT3J D, 
D LC(FRAC), 

S5 ALU15, 

CHR.FLT.OPR, 

SET.CC(INST) 



D DAL.SC, SD SS, 
Q.IDCT33, 

RCR15J.LC 



LATCH SRCO <H> 

SETUP SHIFT AMOUNT FOR UNPACK FRAC <H> 



SAVE SRC IMMED <L> 

UNPACK SRCO <H> 

SETUP FOR FRAC <H> 

SS GETS SRC SIGN 

CHK RSV OPD 

SET COND CODES IN CASE DEPEND SOLELY ON SRC 



SHIFT RIGHT BY 7, SAVE SS IN SD 
GET SRC IMMED <L> 
SC GETS 7 
SAVE SRCO <H> 



U 0731. 0D18.0038, 1981. FA78.01 18,6736 



U 0736, OC00.123C.C1FA,3D08.0000,02DA 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600.120A3 
; P1U124.MCR 600.12043 MICR02 1L 

; FLOAT .MIC £600.12043 F ft D floating point 



M 7 
-Jan-J 
V/ 
UNPACK DOUBLE OPERANDS 



F ftD floating poin14-Jan-82 
MICR02 1L(03> 14-Jan-82 15:30:16 VAX1 1/780 



Fiche 2 Frame H7 Sequence 291 

Microcode : PCS 01, FPLA 0E. WCS124 Page 290 



U 02DA. 0D1 0.0938. 6586, F800, 0987,6408 

U 02DE, 0810,C038,0180.F800,08F3,073D 

U 073D, 0010,K38,01CO,F930,0000,036! 

U 0361, 0F18,003A,19F8,F988, 0000, 0001 

U 0363, 0001,203E,01F8,F988,0000,0001 



10910 

10911 

10912 

10913 

10914 

10915 

10916 

10917 

10918 

10919 

10920 

10921 =*01* 

10922 

10923 

10924 

10925 

10926 

10927 

10928 

10929 

10930 

10931 

10932 

10933 

10934 

10935 

10936 =;END 

10937 

10938 

10939 

109*0 

10941 =*01 

10942 

10943 

10944 

10945 

10946 

10947 

10948 

10949 

1C950 =;END 



D.DAL. SC. ALU KCZER03, 
FP RCR155(EXPT. 
CLR.UBCC, SS.ALU15 

IDCT03 D, 

LC RCCT13. SS.SD, 

D fl. Q .0. 

EAlU.Z? 

SC LC(EXP). 
SGfl/ADD.SUB, 



CHK.FLT.OPR, 
D DAL.SC, 
FE KC.103. 
IR2-1?,J/SRCL 

6 LC. 

SZ LC(EXP), 

CHR.FLT.OPR, 

SET.CC(INST) 

Q RCCT63, 
St\GT.O? 

;0 

RCCTUJCCZEROJ, 
DO, Q 0. 

RETURN! 

;1 

RCCT13 Q, 
Q 0, 
RFTURN1 



GET SRC FRAC <H> 

FE GETS SRC EXP 

SET BRANCH COND CODE FOR SRC EXP f CLR SS 



SAVE SRC FRAC <H> 

LATCH DSTO <H>, RESTORE SS .0 OLD VALUE 

SETUP FOR SHIFTING SRC FRAC <L> 

IS SRC EXP = ? (**N0TE SS IS CLEAR!) 

NO: SRC .NE. (EALU => 0) (SS=0) 

SC GETS DST EXP 

SS GETS FLAG OF +/- FOR ADDD.SUBD 

AND RESULT SIGN FOR MULD, -SIGN FOR DIVD 
SD GETS DST SIGN 
OC IF RSV OPD 
D GETS SRC FRAC <L> 
SETUP SHIFT AMOUNT 
GOTO SAVE SRC FRAC <L> AND CK FOR +,-,*, / 



YES: SRC = 
D GETS DSTO <H> 
SC GETS DST EXP 
CK IF RSV OPD 
SET COND CODES 



GET DSTO <L> 
DST EXP = 0? 



SRC = 0, DST = ( 
RESULT IS 
RETURN ADR .OR. 



1 FOR SR r = DST = 



SRC = 0, DST.NE.O 

RC1 GETS DSTO <L> 

CLR Q 

RETURN ADR .OR. 1 FOR SRC 



= 0, DST.NE.O 



I 7 

ZZ-ESOAA-124.0 ; FLOAT .MIC [600. '2043 F SD floating poin14-Jan-82 Ffche 2 Frame 1/ Seguence 292 

; P1W124.MCR 600.12043 MICRG2 1LC03) K-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
; FLOAT .MIC C600, 12043 F & D floating point : UNPACK DOUBLE OPERANDS 



291 



U 04D8. 0810.1438.C9C0.3D30,0199,E371 



U 04D9, 0810. 1438. C9C0.3D30. 0199. E371 



U 04DA, 081 0,1 438. C9C0.3D30.C199., 8371 



U 04DB. 0810. 1438. C9C0.3D30.0199.A37 



10951 
10952 
10953 
10954 
10955 
10956 
10957 
10958 
10959 
10960 
10961 
10962 
10963 
10964 
10965 
10966 
10967 
10968 
10969 
10970 
10971 
10972 
10973 
10974 
10975 
10976 
10977 
10978 
10979 
10980 
10981 
10982 
1098" 5 



=00 
SRCL: 



;;END 



.00 

FE NABS(SC-LA(EXP)), 

SC„FE, 

CLK.UBCC, 

IDCT23 D, 

D RCCT53, Q RCCT63, 

St\GT.O?,J/BSTTST 

FE NABS (SC-LA( EXP)), 

SC'FE, 

CLR.UBCC, 

IDCT23 D, 

D RCL753, Q RCCT63, 

St\GT.O?,J/BSTTST 

FE SC+LA(EXP), 

SC FE, 

CLR.UBCC, 

IDCT23 D, 

D RCCT53, Q RCCT63, 

St\GT.0?,J/5STTST 



;11 

FE SC-LA(EXP), 

SC FE, 

CLR.UBCC, 

ID[T23 D, 

D RCCT53, Q RCCT63, 

St.GT.O? " 



ADDD 

FE GETS NABS(DSTCEXP) - SRC (EXP)) 

SC GETS 16. 

SET BRANCH COND CODES 

SAVE UNPACKED SRC FRAC <L> 

GET DSTO <L> FOR SWAP WORD 

DST EXP = 0? 

SUBD 

FE GETS NABS(DSTCEXP) - SRC (EXP)) 

SC GETS 16. 

SET BRANCH COND CODES 

SAVE UNPACKED SRC FRAC <L> 

GET DSTO <L> FOR SWAP WORD 

DST EXP = 0? 

MULD 

FE GETS DST(EXP) ♦ SRC (EXP) 

SC GETS 16. 

SET BRANCH COND CODES 

SAVE UNPACKED SRC FRAC <L> 

GET DSTO <L> FOR SWAP WORD 

DST EXP = 0? 

DIVD 

FE GETS (DST (EXP) - SRC(EXP)) 

SC GETS 16. 

SET BRANCH COND CODES 

SAVE UNPACKED SRC FRAC <L> 

GET DSTO <L> FOR SWAP WORD 

DST EXP = 0? 



ZZ-ESOAA-124.0 ; FLOAT .MIC C60O.1204J 

; P1U124.MCR 600.12043 

; FLOAT .MIC [600,12043 F & D floating point 



J 7 
-Jan-£ 
V/ 
UNPACK DOUBLE OPERANDS 



F I D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 75:30:16 VAX11/780 



U 0371, 0800,003E,0180,F918,0000,0002 

U 0373, 0D1 0,0038. B9C8,F908. 0084, 6755 

U 0755, ODOO,003C,5DEO,F 800, 0084, 6756 

U 0756, ODOO,003C,0180.F800,0000,0759 

U 0759, OC01,003C,C5F8,3DA8,0000.0763 

U 0763, OD10,003A,C9FO,2D08, 0083,0003 



10984 =*01 

10985 DSTTST: 
10986 

10987 

10988 

10989 

10990 

10991 

10992 

10993 

10994 =;END 

10995 

10996 

10997 

10998 

10999 

11000 

11001 

11002 

11O03 

11004 

11005 

11006 

11O07 

11008 

11009 

11010 

11011 



D.LA. 

Lt RCCT33, 

RETURN2 



Fiche 2 Frame J 7 Sequence 293 

Microcode : PCS 01, FPLA OE, WCS124 Page 



DST = 0, SRC.NE.O, D GETS SRCO <H> 

LATCH SRCO <L> 

RETURN ADR.OR.2 FOR DST = 0, SRC.NE.O 



2V_ 



D DAL.SC, 

RCCT13(FRAC), 

Si KC.193 



D.DAL. SC, 
St KC.73 



D_DAL.SC 



IDCT13 D, RCCT53 D, 
D_Q, Q_0 



D DAL.SC, 

Q IDCT23, 

St RCCT13(EXP>, 

RETURN3 



DST.NE.O, SRC.NE.O 
SUAP WORD DST FRAC <L> 
UNPACK DSTO <H> 
SHIFT AMOUNT SET TO 25. 



SHIFT DST FRAC 

GET FRAC LOWER PART 

SHIFT AMOUNT SET TO 7 



GET DST FRAC <H> 



SAVE DST FRAC <H> 
SETUP FOR FRAC <L> 



D GETS DST FRAC <L> 

Q GETS SRC FRAC <L> 

SC GETS DST EXP 

RETURN ADR .OR. 3 FOR DST.NE.O. SRC.NE.O 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600, 12043 F 
P1W124.MCR 600,12043 MICR02 1L(03) H-Jan-82 



K 7 



; FLOAT !mIC L"606. 12043 



8 D floating poin14-Jan-82 
15730:16 



F & D floating point : PACK DOUBLE RESULT 



Fiche 2 Frame K7 Sequence 294 

VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 293 



U 03EC, 0D00,173C, 0580. F800, 0095, 63E4 



U 03EE, 0819,0014,0580,F800,0191.0768 



U 0768. 001B,0314,0580,F800,0010,03FC 



U 03FC, 0008,C338,0180,F988,01F1,03EC 



U 03FE. 0000,003C, 0180, F800. 0080, C3FC 



11012 
11013 
11014 
11015 
11016 
11017 
11018 
11019 
11020 
11021 
11022 
11023 
11024 
11025 
11026 
11027 
11028 
11029 
11030 
11031 
11032 
11033 
11034 
11035 
11036 
11037 
11038 
11039 
11040 
11041 
11042 
11043 
11044 
11045 
11046 
11047 
11048 
11049 
11050 
11051 
11052 
11053 
11054 
11055 
11056 
11057 
11058 
11059 
11060 
11061 
11062 
11063 
11064 



,T0C 



F fc floating point : PACK DOUBLE RESULT* 



ROUTINE TO PACK DOUBLE FLOATING POINT RESULT. 

ENTRY: AT "PACKD" 

INPUTS: D = NORMALIZED FRACTION<H>, UNROUNDED 

= NORMALIZED FRACTION<L>, ROUNDED 

C31 = CARRY FROM ROUNDING 

SC = BIASED EXPONENT 

SD = SIGN 

FE = 18 (HEX) 

STATE<0> = 1 IF CALLED FROM POL YD, ELSE 

STATE<3:1> = 
OUTPUTS: (IF NOT CALLED FROM POL YD) 

D = RESULT<H> 

Q = RCCT13 = RESULT<L> 

CONDITION CODES SET 

TRAP CODE SET IN IDCCES3 IF UNDERFLOW OR OVERFLOW OCCURRED 
OUTPUTS: (IF CALLED FROM POLYD) 

Q = RCCT13 = RESULT<H> 

D = RESULT<L> 



TEMPORARIES: 
RETURNS: 



SC = FE = EXPONENT 
LC 

RETURNS a 
RETURNS 3 
RETURNS 3 
RETURNS a 
RETURNS a 



10 IF NOT CALLED FROM POLYD 

10 IF CALLED FROM POLYD AND EXPONENT = 

12 OR 13 IF CALLED FROM POLYD AND 1 < EXPONENT < 

15 IF CALLED FROM POLYD AND EXPONENT < 

17 IF CALLED FROM POLYD AND EXPONENT > FF 



100 



=0* 

PACKD. 0: ;0 

D DAL.SC, SC FE, 
EAlU KC.1], Clk.ubcc, 

STATEO?, J/PACKD.2 



=;END 



;1 

D JHKC.13, 
SljEJE SC, 
CLR.U8CC 



=0* 

PACKD: ;0- 



ALU 0+KC.13,CLK.UBCC, 
C317 



SC FE.FE SC, 
RCtT13 PJCK.FP, 
SET.CC7INST), 

J /PACKD. 



=;END 



;1 

SC_SCM,J/PACKD 



D GETS FRAC <L>, SC GETS BACK EXP 

CLEAR EALU CCS 

CHECK POR POLYD AND GO SWAP FRAC<L> 



FRAC <H> INCREMENTED BY 1 
SC 6ETS EXP, FE GETS 24. 
CLOCK IN CARRY IF ANY 



CLR C31 

HAVE TO INCREMNET EXP BY 1? 

NO, PACK RESULT <H> 

SC 6ETS 24. AND FE SAVES EXP 

RC1 GETS PACKED RESULT <H> 

SET COND CODES 

HAVE TO INCREMENT FRAC <H>? 

GOTO PACK FRAC <L> OR INCREMENT FRAC <H> 

YES, INCREMNET EXP BY 1 



L 7 
ZZ-ESOAA-124.0 ; FLOAT .MIC C600, 12043 F & D floating poinH-Jan-82 Fiche 2 Frame L7 Seguence 295 
; P1W1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS1 24 Page 
; FLOAT .MIC [600, 12043 F I D floating point : PACK DOUBLE RESULT 



294 



U 03E4. O018,1438,65E0,F8O0,0182,0661 



U 03E5. 0O18.OO38,65E0,F8O0, 0182, 0775 



U 0661, 0F18.C039.19F8,F988,0074,6E09 



U 0663, 0D10, 0038,01 CO. F908, 0000, 0771 



U 0665, OF18,C039,19F8,F988,0074,6E09 



U 0667, 0818, C039, 4580, F800. 0070, 6E03 



U 066r. 0018,003A,19F8,F988, 0000, 0010 



U 0771, 0C01,003E, 01 E0.F988, 0000, 0010 



U 0775, 0010,0038,01 CO, F908.0081, 0776 



U 0776, 0000,143E,0180,F800, 0000, 0010 



11065 
11066 
11067 
11068 
11069 
11070 
11071 
11072 
11073 
11074 
11075 
11076 
11077 
11078 
11079 
11080 
11081 
11082 
11083 
1108' 
11085 
11086 
11087 
11088 
11089 
11090 
11091 
11092 
11093 
11094 
(1095 
11096 
11097 
11098 
11099 
11100 
11101 
11102 
11103 
11104 
1110b 
11106 
11107 
11108 
11109 
11110 
11111 
11112 
11113 
11114 
11115 
11116 
11117 



PACKD. 



SCJCC.103.ALU, 
FESC, 

sr?,J/PACKD.4 



=;END 
=0001 
PACKD. 



;1 

SC KC.103.ALU, 
FE SC, 
Q 15, 
J7PACKD.8 



4:;00 

D 0,0 O.EALU KCZEROJ, 
Rrcm KCZEROT, 
SET.CCTlNST), 
CALL,J/UNDRFL 

6 DAL.SC, 
Q RCCT13, 
J7PACKD.6 

; 1 

D 0,0 0,EALU KCZER03, 
RttTtf KCZER&J, 
SET.CCTINST), 
CALL,J/UNDRFL 



PACKD . OV : ; 1 1 

EALU FE, 
D KC.80003, 
SET.CCUNST), 
CALL,J/OVFL 



=1111 

=;END 
PACKD. 



PACKD 
=;END 



R r CT13 KCZER03,Q 0, 
RETURNTO 



6 . . — ... . 

'RCCT13 D, D, 
DO, " 
RFTURN10 

' D.DAL. SCSC.FE, 
Q RCCT13 



SC?,RFTURN10 



NOT POLYD 

SC GETS 16. FOR WORD SWAP FOR FRAC <L> 

SAVE EXP FOR SETTING COND CODES LATTER 

READY FOR SWAP WORD FOR FRAC <L> 

EXP SHOWS NON-0, UNDERFLOW, OVERFLOW 

POL YD 

SC GETS 16. FOR WORD SWAP FOR FRAC <L> 
SAVE EXP FOR SETTING COND CODES LATTER 
HEADY FOR SWAP WORD FOR FRAC <L> 



EXP: RESULT UNDERFLOW 
SET RESULT <H,L> TO ZEROS 
RESULT <L> SET TO 

SET COND CODES 

SET CES FOR UNDERFLOW 

01 TO fF EXP: OK 
SWAP WORD 

Q GETS RESULT <H> 



NEG EXP: UNDERFLOW 

SET RESULT <H,L> TO ZEROS 

RESULT <L> SET TO 

SET COND CODES 

SET CES FOR UNDERFLOW 

> 31 EXP: OVERFLOW 

PASS EXP FOR COND CODES DETECTION 

RESULT SET TO -0 

SET COND CODES 

SET CES FOR OVERFLOW 

RETURN FROM CES SETTING 

SlSULT <L> SET TO 

RETURN TO INSTR CALLED FROM FORK ENTRIES 



RC1, Q HAVE RESULT <L> 

D GETS RESULT <H> 

RETURN TO INSTR CALLED FROM FORK ENTRIES 

POL YD 

SWAP WORD, GET BUK EXP 

GETS RESULT <H> 



RETURN TO POL YD 



ZZ-ES0AA-124.C ; FLOAT .MIC C60 A J20AJ 

; P1W124.MCR 600.12043 

; FLOAT .MIC C600.1204D F & D floating point 



F t D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



ADDD. SUBD 



H 7 

Fiche 2 Frame M7 Seguence 296 

VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 



295 



U 0042, 0001,203C.19F8,F980,1404,6778 
U C778, 0000.003C,0180,F988,0000,077B 
U 0778, 0800,003C, 0180, F870, 0000, 0225 



U 0225, 0C01, 0030,6580, F 980, 0084, 6580 

U 0235, 0001 .003C, 0180, F8CO,0000, 0782 

U 0782, 0O00,0O3C,0180,F908,0000,0786 

U 0786, 401 0, 0038, 01 80, F8F 5. 4000, 0062 



U 0046, OOOC, 0038, 1980, F980, 1404. 6789 
U 0/89, 0O00,0O3C,0180,F988,000O,078A 

U 078A, 0000, 003C, 01 CO, F860, 0000, 0778 



F ft floating point : ADDD, SUBD' 



'118 .TOC 
1119 

1120 .ADDD2/SUBD2. SHORT LITERAL CSL) - REGISTER (R) 

1121 ;ENTER HERE FROM IRD STATE AT A.FORK WITH SL IN Q, R IN LA. 
1122 

1123 042: ; 

1124 STATE KCZEROJ, 

1125 RCCT01 Q, Q 
1126 

1127 ; 

1128 RCCT13.LA 
1129 

1130 ADDD. A: ; 

1131 D R(SP1+1) 
1132 

1133 =0**** 

1134 ADDD.R: ;0 

1135 RC:T6JJ>, 

1136 DQ, 

1137 it KC.103, 

1138 CACL,J/ADDD.S 
1139 

1140 ;1 

1141 R(SP1) D 

1142 =;END 



CLR POLVD FLAG 

SRCO <RC0, Q> GETS <SL, R> 



RC1 GETS DSTO <H> 
D GETS DSTO <L> 



SAVE DSTO <L> 

D GETS SRCO <L> 

SC GETS 16. FOR SWAP WORD OF FRAC <L> 

CALL ADDD/SUBD SUBROUTINE 

RETURN WITH RESULT IN <D, RC1> 
STORE RESULT <H> 



LC_RCCT13 



R(SP1+1) LC, 
CLR.I80-T,PC PC+2, 
J/IRD 



GET RESULT <L> 



STORE RESULT <L> 
CLR IB BYTES 0,1 
GOTO NEXT INST 



1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 

1153 ;ADDD2/SUBD2, R-R 

1154 .-ENTER HERE FROM IRD STATE AT A.FORK WITH LB. LA HAVE SRC <H>. DST<H> 
1155 

1156 046: ; ; 

1157 STATE JCCZERO], ; CLR POL YD FLAG 

1158 RCCT03 LB ; RCO GETS SRCO <H> 
1159 

1 1 6 ; ; 

1161 RCCT1J LA ; RC1 GETS DSTO <H> 
1162 

1163 ; ; 

1164 Q R(PRN+1). ; Q GETS SRCO <L> 

1165 J7ADDD.A ; GOTO SAME FLOW AS SL-R 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600.1204] 

; P1W124.KCH 600-1204] 

; FLOAT .MIC 11600,12043 F & D floating point 



N 7 



F fc D floating poin1A-Jan-82 
MICR02 1L(03) H-Jan-82 15:30:16 



ADDD, SUBD 



Fiche 2 Frame N7 Sequence 297 

VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 296 | 



U 0242, 0F01,203C,19E0,F988, 1404.6225 



U 0246, 0000,003C,19EO,F9'i8,1404,678E 



U 078E. 0800, 003C, 0130, F860, 0000,0225 



U 022E, 0000,003C,19EO,F988, 1404,6791 

U 0791, 080O,0O3C, 0180. F860, 0000, 00EC 

U OOEC, 0C01, 0030, 6580, F9B0. 0084, 6580 

U OOFC, 0001, 003C, 01 80, F 808,0000, 0796 

U OOFE, 0001,003C, 0180, F808, 0020, 0796 

U 0796, 0000. 003C, 0180, F908, 0000, 079* 

U 079A, C010. 0038. 0180, F8E4, 4000, 0062 



1166 ;ADDD3/SUBD3. *-SL-R 

1167 .-ENTER HERE AT B.FORK WITH SRCO IN <RC0, D>, SL IN Q. 

1168 .-LEAVE HERE WITH SRCO IN <RC0, Q>, DSTO IN <RC1 , D> 
1169 



:i70 

1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1137 
1188 
1189 
1190 
1191 
1192 
1193 
119* 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
12 1 2 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 



24 2 * * — 

STATE KCZERO], 
RCCTH.Q, 
D. D.O, 
-7ADDO.R 

;ADDD3/SUB3. *-R-R 

246: 



CLR POLYD FLAG 

RC1 GETS DSTO <H> 

Q GETS SRCO <L>. D GETS DSTO <L> WHICH IS 



STATE KCZERO], 
RCCn!Jj.A. 
Q D 



RCPRN+1). 
J7ADDD.R 



CLR POLYD FLAG 
RC1 GETS DSTO <H> 
Q GETS SRCO <L> 



GET DSTO <L> 



.-ADDD2/SUBD2. *-R 

.-ENTER HERE AT B.FORK WITH SRCO IN <RC0, D>, R IN LA, L8. 

.-LEAVE HERE WITH SRCO IN <RC0, Q>, DSTO IN <RC1 , D> TO GOTO SAME FLOW 

;AS SL-R, R-R. 



22E: 



Si Alt XCZERO], 
RCCT13 LA, 
D " 



D RCPRN+1) 



CLR POLYD FLAG 
RC1 GETS DSTO <H> 
Q GETS DSTO <L> 



D GETS DSTO <L> 



=0^ 10* 



;00 

RCCT6J D, 

DO, 

St KC.103, 

CAEL.J/ADDD.S 



=1110* 
ADDD.M: 



=;END 
ADDD.P: 



;10 

R(PRN).D.J/ADDD.P 



;11 

R(PRN)_D,SET.V 



SAVE DSTO <L> 

D GETS SRCO <L> 

SC GETS 16. FOR SWAP WORD OF FRAC <L> 

CALL ADDD/SUBD SUBROUTINE 



RETURN WITH RESULT IN <D, RC1> 
STORE RESULT <H> 

RETURN WITH RESULT IN <D, RC1> 
RESET PSL<V> FOR DIVD 



LC RCCT1] 



R(PRN+1) LC, 
CLR.IS.OPCPC PC + 1. 
J/iRD 



GET RESULT <L> 



S1CRE RESULT <L> 
CLR IB BYTE 
GOTO NEXT INST 



U 038A. 0000.003C.1980.F800.1404.62A4 



U 02A4, 0C01.003D.6580.F980. 0084. 6580 



U 02B4. F000.003F, 01 FO.F 847. 0000, 0300 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600.1204D 

; P1W124.MCR 600.12043 

; FLOAT .MIC [600, 12043 F & D floating point 



B 8 



F ft D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



ADDD, SUBD 



Fiche 2 Frame B8 Seguence 298 
VAX1 1/780 Microcode : PCS 01, FPLA OF, WCS124 Page 297 



11221 
11222 
11223 
11224 
11225 
11226 
11227 
11228 
11229 
11230 
11231 
11232 
11233 
11234 
11235 
11236 
11237 



*-«— * 



; DOUBLE FLOATING POINT ADDD AND SUBD *-* OR 

.-ENTER AT C.FORK WITH SRC OPD IN <RC0, Q>, DST OPD IN <RC1 

.-ALWAYS YIELDS NORMALIZED AND ROUNDED RESULT. 



D>. 



38A: 
ADDD: 



=0**** 



STATE JCCZER03 



;0 — 

RCCT6D D, 

DO, 

sr KC.10D. 

CACL, J /ADDD. S 



=;END 



;1 

WRITE. DEST.J/WRD 



CLR POL YD FLAG 



SAVE DSTO <L> 

D GETS SRCO <L> 

SC GETS 16. FOR SWAP WORD OF FRAC <L> 

CALL ADDD/SUBD SUBRT 



WRITE RESULT 



C 8 

ZZ-ESOAA-124.0 ; FLOAT .MIC [600,12043 F g D floating poin14-Jan-82 Fiche 2 Frame C8 Sequence 299 

; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 

; FLOAT .MIC t600.120«*3 F & D floating point : ,DDD, SUBD 



298 



U 0580. 0DO1.003D.8D80.r998. 0084. 66CA 



U 0581. 0001. C03E. 0180. F 800. 0070. 0010 



U 0582. 001 0.0938. 01 80, F 988. 0000, 0582 



U 0583, 0000, 123C,0180,F908,0000, 0182 



U 0582, 0001, C03E, 01 80, F 800, 0070, 0010 



U 0583. 0819, C022, 4580. F800,0070, 0010 



11238 
11239 
11240 
11241 
11242 
11243 
11244 
11245 
11246 
11247 
11248 
11249 
11250 
1i251 
V252 
II 253 
11254 
11255 
11256 
11257 
11258 
11259 
11260 
11261 
11262 
11263 
11264 
11265 
11266 
11267 
11268 
11269 
11270 
11271 
11272 
11273 
11274 
11275 
11276 
11277 
11278 
11279 
11280 
11281 
11282 
11283 
11284 
11285 
11286 
11287 
11288 



COMMON DOUBLE FLOATING ADD/SUB ROUTINE 

INPUTS: RCCT03 = 3RC<H> 
D = Q = SRC<L> 
RCC T 13 = DST<H> 
RCCT63 = DST<L> 
SC = 10 (HEX) 
STATE = 
IR<1> = IF ADDD, 1 IF SUBD 



OUTPUTS: 



TEMPORARIES: 



RETURNS: 



D = PACKED ROUNDED SUM<H> 
RCCT13 = PACKED ROUNDED SUM<L> 
CONDITION CODES AND IDCCESJ SET ON SUM 

RCR153. RCCT23. RCCT33, RCCT53 
IDCT03. IDf!T13, IDCT23. IDCT33, 
SS. SD. Q, FE, LA, LB, LC 

RETURNS a 10 



=00 
ADDD.S: 



;00 

RCCT33 D. 
D DAL.5C. 
SC KC.FFF93, 
CACL.J/UNPACK 



AU-DD.6: 



=;END 



;01 

ALU.D, 

SET.CC(INST), 

RETURN10 

;10 

RCCT13 LC, 
IR1?, J/ADDD.8 

;11 

LC RCCT13, 
EAEU?,J/ADDD.10 



=10 

ADDD. 8: ;0- 



ALU D.SET.CC(INST). 
RET0RN10 



=;END 



;1 

D D.XOR.KC. 80003, 

SET.CC(INST), 

RETURN10 



SAVE SRCC <L> 

SWAP WORD OF SRCO <L> 

SETUP SHIFT AMOUNT -7 

CALL UNPACK DOUBLE FLOATING PT OPERANDS ROUTINE 

RE T URN1. SRC = 0, DST MAY BE 

S COND CODES AS DST (UNPACK ASSURES CLEAN 0) 

I TR DEP COND CODES 

G. WRITE DEST 

RETURN2, DST = 0, SRC.NE.O 
RC1 GETS SRCO <L> 
ADDD OR SUBD? 

RETURN3, SRC.NE.O, DST.NE.O 
LATCH UP PACKED HI DEST IN LC 
BEN ON EALU<N,Z>, SS 



CONSTRAINED BLOCK FOR IR1? 

ADDD: RESULT = SRC, SET COND CODES 

GOTO WRITE DEST 

SUBD: RESULT = -SRC 
RESULT = -SRC 
SET COND CODES 
GOTO WRITE DEST 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600. 12043 

; P1W124.MCR 600.12043 

; FLOAT .MIC [600. 12043 F & D floating point 



D 8 



F & D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



ADDD, SUBD 



Fiche 2 Frame D8 Sequence 300 

VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 299 



U 0182, OC01,003D,C1FO,2EF 8,0081 ,04AE 



U 0183, OC01,003D,C1FO,2EF8.0081.080E 



U 0186, 001D,0014,C5FO,2EF8,0090,C7BD 



U 0187, 001D, 0000. C5F0, 2EF8, 0090. C7DA 



U C A, 0000, 003D,C5F0,2D00. 0081. 04AE 



U 018B, 0000, 003D.C5F 3,2000, 0081. 080E 



11289 
11290 
11291 
11292 
11293 
11294 
11295 
11296 
11297 
11298 
11299 
11300 
11301 
11302 
11303 
11304 
11305 
11306 
11307 
11308 
11309 
11310 
11311 
11312 
11313 
11314 
11315 
11316 
11317 
11318 
11319 
11320 
11321 
11322 
11323 
11324 
11325 
11326 
11327 
11328 
11329 
11330 
11331 
11332 
11333 
11334 
11335 



MAIN BRANCHING POINT OF ADDD - ALSO USED BY POLYP AND ACBD 

AT THIS POINT, MACHINE STATE IS AS FOLLOWS 

D=DST FRAC<L>, QtID[T2J=SRC FRAC<L>, RCCT5J6IDCT13=DST FRAC<H>, 

IDCT03=SRC FRAC<H>, SC=DST EXP, FE=NABS(SRC EXP - DST EXP) , 

SD=DST SGN, SS-DST SGN .XOR. SRC S6N .XOR. SUBD, 

RCCT03=ORIG SRC<H>, LC8RCCT13=ORIG DST<H>, RCCT63=ORIG DST<L>, 

STATE<0> = POL YD FUG, STATE<3:1> = 0. 



=000010 

ADDD. 10:; 0010 

RCR153 D, 

DO, " 

sr FE, 

Q TDCTOD, 

caUcalnpos3 



;0011 

RCR153 D, 
D 0, 
ST FE, 
Q TDCT03, 
C*LLCALNNEG3 



ADDD.14:;0110 

RCR15J D+Q, 
Q IDCTT1, 
CCK.UBCC, 
SC SC+1, 
J/SDDD.26 



ADDD. 16:; 01 11 

RCR1 53 D-Q, 
Q IDCTT3, 
ClX.UBCC, 
SC SC+1, 
J/ADDD.30 



;1010 

SC FE. 

Q 7DCT13, LC RCCT03. 

CALLCALNP0S3 



;1011 — 

SC FE. 

Q TDCT13, LC.RCCT03. 

S& NOT.SD, 

CArLCALNNEGJ 



DST EXP > SRC EXP, ADD 

SAVE DST FRAC <L> 

SETUP FOR ALIGN SRC FRAC 

GET SHIFT AMOUNT 

GET SRC FRAC <H> 

GO ALIGN SRC 

DST EXP > SRC EXP, SUB 

SAVE DST FRAC <L> 

SETUP FOR ALIGN SRC FRAC 

GET SHIFT AMOUNT 

GET SRC FRAC <H> 

TWO'S COMPLEMENT AND ALIGN SRC 

DST EXP = SRC EXP, ADD 

ADD FRAC <L>'S 

GETS DST FRAC <H> 

CLOCK IN CARRY IF ANY 

ADD 1 TO RESULT EXP TO OFFSET SHF.VAL COUNTING 



DST EXP = SRC EXP, SUB 

SUB FRAC <L>'S 

GETS DST FRAC <H> 

CLOCK IN CARRY IF ANY 

ADD 1 TO RESULT EXP TO OFFSET SHr 



f -Al COUNTING 



DST EXP < SRC EXP, ADD 
SC GETS SHIFT AMOUNT FOR ALIGNMENT 
GETS DST FRAC <H>, LC GETS SRC EXP 
GO ALIGN DST 

DST EXP < SRC EXP, SUB 

SC GETS SHIFT AMOUNT FOR ALIGNMENT 

Q GETS DST FRAC <H>, LC GETS SRC EXP 

RESULT SIGN IS SRC SIGN 

TWO'S COMP AND ALIGN DST 



E 8 
ZZ-ESOAA-124.0 ; FLOAT .MIC [600, 12043 F & D floating poin14-Jan-82 Fiche 2 Frame E8 Seguence 301 
; PI W1 24. MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
; FLOAT .MIC C600, 12043 F & D floating point : ADDD, SUBD 



300 



U 0192, OC0O,OO3C.C9F8,3C0O,0l81,079E 



U 0193, 0C03.OO28.C9C0,3C0O,0181,079E 



U 019A, OC01,003C.01F8.F990,0181,07B9 



U 019B, OC01,003C,0180,F990,0181,0781 



U 01 A3, OC0O,OO3C.C9E0,3C0O,0000,07A9 



U 01AB, 0C01,O03C,C9F0,2D9O,000O,078A 



U 01B3, 0011,1738,01CO,F930,0088,6428 



U 01BB, OCOO,003C,C9FO,2COO,0100,C67B 



11336 
11337 
11338 
11339 
11340 
11341 
11342 
11343 
11344 
11345 
11346 
11347 
11348 
11349 
11350 
11351 
11352 
11353 
11354 
11355 
11356 
11357 
11358 
11359 
11360 
11361 
11362 
11363 
11364 
11365 
11366 
11367 
11368 
11369 
11370 
11371 



ADDD - RETURNS FROM ALIGNMENT ROUTINE 



=010010 ; — 



SC FE. FE.SC, DO. Q_0, 
IDtT2JJ>, J/ADDG.21 



SC FE, FE.SC, D Q, 
ALO -1, Q.ALU, 
IDCT23.D, J/ADDD.21 

SC FE, FE.SC, D Q, Q 0, 
RCrT23_D, J/ADD&.24 

SC FE, FE.SC, D Q, 
RCrT23J>, J/ADD&.23 

IDCT23.D. Q D, D Q, 
J/ADDD. 22 



RCCT23 D, Q IDCT23, 
D_Q, J7ADDD.25 



=110011 



=111011 



=;END 



Q RCCT63, SC D(EXPMA), 
STATEO?, J/A0DD.2O 



D Q, Q IDCT23, FE SC+1, 
J7ADDDT31 



DST EXP > SRC EXP, ADD, DIFF<32 
SC GETS SHIFT AMT, FE GETS DST EXP, 
PREPARE TO SHIFT HIGH-ORDER SRC 

DST EXP > SRC EXP, SUB, DIFF<32 
SC=SHIFT AMT, FE^DST EXP f 
SIGN-EXTENSION OF FRACT TO Q, PREPARE 
TO SHIFT HIGH-ORDER NEGATED SRC FRAC 

DST EX.P < SRC EXP, ADD, DIFF<32 
SC=SHIFT AMT, FE=SRC EXP, PREPARE 
TO SHIFT HIGH-ORDER DST FRAC 

DST EXP < SRC EXP t SUB, DIFF<32 
SC=SHIFT AMT, FE=SRC EXP. PREPARE 
TO SHIFT HIGH-ORDER NEGATED DST FRAC 

DST EXP > SRC EXP, ADD/SUB, 32<=DIFF<64 
SAVE LOW ALIGNED SRC, D GETS SIGN EXT 



DST EXP < SRC EXP, ADD/SUB, 32<=DIFF<64 
SAVE LOW ALIGNED DST, GETS LOW SRC, 
D GETS 32*DST FRAC SIGN 

DST ZXP > SRC EXP, ADD/SUB, DIFF>63 

D HAS ORIG DST<H>, SET Q TO ORIG DST<L> 

CHECK TO SEE IF WE WERE CALLED FROM POL YD 

DST EXP < SRC EXP, ADD/SUB. DIFF>63 
ANSWER IS +/- SRC - RECONS/RUCT FROM FRAC&EXP 
TO GET SIGN RIGHT (FRDM SD) AND BECAUSE 
POL YD DOESN'T HAVE A PACKED VERSION OF SRC. 



F 8 
ZZ-ESOAA-124.0 ; FLOAT /1IC C600.12043 .._. F |D Uoating_poin14-Jan-82 



P1W124.MCR 600.12043 
FLOAT .MIC [600. 12043 



MICR02 1L(03) H-Jan-82 *?5?30:1S 
F & D floating point : ADDD, SUBD 



Fiche 2 Frame F8 Seguence 302 

VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 301 



U 0428. 0001.203E.0180.F988.0000.0010 



U 0429. OC00.143E.01EO.F800.0000.0010 

U 079E. 0000.003C.C9F0.2C00.0081.07A9 

U 07A9. 0800.003C.C180. 7 78.0000.0186 

U 07B1. 0003.0028.01 CO. F 800. 0000. 0789 

U 07B9. 0D00.003C.C9F0.2C00.0081.07BA 

U 078A. 0810. 0038. C580.3D10. 0000, 0186 



11372 
11373 
11374 
11375 
11376 
11377 
11378 
11379 
11380 
11381 
11382 
11383 
11384 
11385 
11386 
11387 
11388 
11389 
11390 
11391 
11392 
11393 
11394 
11395 
11396 
11397 
11398 
11399 
11400 
11401 
11402 
11403 
11404 
11405 



=***0 

ADDD . 20 r ; 

RCCT13.Q. RETURN10 



HERE WHEN SRC=0 W.R.T. DST AND NOT Pa YD 
STORE DST<L> IN RESULT<L> AND EXIT 



A***********************';********************** 

* Patch no. 031, PCS 0428 trapped to WCS 1163 * 

*********************************************** 



D Q. Q D, SC?, RETURN10 
=;END 
ADDD . 21 : ; ■ 

D DAL.SC, 

Sf FE. 

QTDCT23 



ADDD. 22:; 

IDCT03 D, 
D RCR153, 
J7ADDD.14 



ADDD. 23: 



ALU_-1, Q.ALU 



ADDD. 24:; 

D DAL.SC, 

sr FE, 

QTDCT23 



ADDD. 25: 



IDCT13 D, 
D RCCT23, 
J7ADDD.14 



HERE WHEN SRC=0 W.R.T. DST AND INST IS POL YD 
PUT RESULT IN <Q.D> I RETURN (12) 

HERE WHEN SRC IS TO BE ALIGNED <32 PUCES 
D 6ETS ALIGNED SRC FRAC <H> 
SC GETS BACK DST EXP 
Q GETS DST FRAC <L> 

HERE WHEN SRC FRACTION IS ALIGNED 
IDCT03 GETS ALIGNED SRC FRAC <H> 
D GETS DST FRAC <H> 
GOTO ADD FRAC <L> 

UGLY STATE 

COULDN'T DO THIS AND SAVE DST<L> IN RCCT23 

IN THE SAME STATE 

HERE TO COMPLETE DST ALIGN OF <32 BITS 

D GETS ALIGNED DST FRAC <H> 

SC GETS SRC EXP 

Q GETS SRC FRAC <L> 

HERE WHEN DST FRAC IS ALIGNED 
STORE ALIGNED DST FRAC <H> 
D GETS ALIGNED DST FRAC <L> 
GOTO ADD FRAC <L> 



U 07BD, OCOO,033C,C1FO,2COO,01 00,0420 



U 0420, 0810,0014, 0180, FA78,0010,07CA 



U 0422, 081D, 0010, 0180. FA78,0010,07CA 



U 07CA, 0000,1B3C,01CO,F800,0000,067B 



ZZ-ES0AA-124.0 ; FLOAT .MIC C600. 12043 



G 8 



"1 



P1U124.MCR 600-12043 
FLOAT .M;C [600,12043 



MICR02 1L(03) 14-Jan-82 

F & D floating point : ADDD, SUBD 



ft D floating poin14-Jan-82 
T5?30:16 



Fiche 2 
VAX1 1/780 Microcode : 



Frame G8 
PCS 01, FPLA 0C, 



Sequence 303 
WCS124 Page 302 



U 07DA. 0rOO,033C,C1F0,2CO0,0O0O,0474 



U 0474, 081D,0008,0180,FA78,0010,07DC 



U 0476, 0810,0000, 0180, FA78, 0010, 07DC 



U 07DC, 0000,183C,01CO,FA78,0100,067A 



U 067A. 0O1F,0000.01C3,F8O0,0O10,07F5 



11406 
11407 
11408 
11409 
11410 
11411 
11412 
11413 
11414 
11415 
11416 
11417 
11418 
11419 
11420 
11421 
11422 
11423 
11424 
11425 
11426 
11427 
11428 
11429 
11430 
11431 
11432 
11433 
11434 
11435 
11436 
11437 
11438 
11439 
11440 
11441 
11442 
1H43 
11444 
11445 
11446 
11447 
11448 
11449 
11450 
11451 
11452 
11453 
11454 
11455 
11456 
1K57 
11458 



;C0ME HERE FROM ADDD. 14 AFTER ADDING LOW-ORDER FRACTIONS WHEN REAL OPERATION 
IS SUBTRACT WITH UNEQUAL EXPONENTS OR ADD. 



ADDD. 26: 



=0* 



=;END 



D_Q, 

Q IDCT03, 
Ff SC, 
C3T? 



D D+Q. 

L*B RCR153, CLK.UBCC, 

J/A0DD.27 

6 D+Q+1, 
L*B_RCR153, CLK.UBCC 



ADDD .27:; 

Q LA 

AfJU?' J/ADD0.31 



D GETS ALIGNED DST FRAC <H> 

Q GETS ALIGNED SRC FRAC <H> 

FE GETS EXP 

HAVE TO ADD 1 MORE FOR FRAC <H>'S? 



ADD ALIGNED FRAC <H>'S 

LATCH RESULT FRAC <L>, SET ALU.Z ON FRAC<H> 



ADD ALIGNED FRAC <H>'S PLUS 1 

LATCH RESULT FRAC <L>, SET ALU.Z ON FRAC<H> 



Q GETS RESULT FRAC <L> 

GOTO NORMALIZE (UNLESS FRAC<H>=0) 



;COME HERE FROM ADDD. 16 AFTER SUBTRACTING LOW-ORDER FRACTIONS 
.-WHEN REAL OPERATION IS SUBTRACT WITH EQUAL EXPONENTS. 



ADDD. 30:; 

DJ>, 



Q IDCT03, 
C31? 



=0* 



;0 

DD-Q-1 , 
CDC.UBCC. 
LAB RCR153, 
J/A5DD.32 



=;END 



;1 

D D-Q, 
CCK.UBCC, 
LAB RCR153 



ADDD. 32:; 

FE.SC. 



Q RCR153, 
ACU? 



=1010 



.00 

SD.NOT.SD, 
Q 0-Q, 
CCK.UBCC. 
J /ADDD. 33 



D GETS ALIGNED DST FRAC <H> 
Q GETS ALIGNED SRC FRAC <H> 
HAVE TO SUB 1 MORE FOR FRAC <H>'S? 

DST FRAC <L> < SRC FRAC <L> 
SUB ALIGNED FRAC <H>'S PLUS 1 
CLOCK ALU.N BIT 
LATCH RESULT FRAC <L> 



DST FRAC <L> .GE. SRC FRAC <L> 
SUB ALIGNED FRAC <H>'S 
CLOCK ALU.N BIT 
LATCH RESULT FRAC <L> 



SAVE DST EXP IN FE 
Q GETS DIFF FRAC <L> 
IS DIFF NEG? 



NEG DIFF FRAC, NEG SIGN 
NEG FRAC <L> 
CLOCK IN ALU.Z BIT 



H 8 
ZZ-ESOAA-124.0 ; FLOAT .MIC C60OJ2043 F ft D floating poin14-Jah-82 
P1W124.MCR 600.12043 MICR02 1L(03) H-Jan-82 15:30:16 1 VAX11/780 
FLOAT .MIC C600. 12043 F ft D floating point : ADDD, SUBD 



Fiche 2 Frame H8 Sequence 304 
Microcode : PCS 01, FPLA 0£, WCS124 Page 303 



U 067FJ. OE00.003C,0180,F80C,008C,67E8 



U 067F. OC00.003C,75F8,F800,0184,A678 



11459 
11460 
11461 
11462 
11463 
11464 
11465 
11466 
11467 
11468 
11469 
11470 
11471 
11472 
11473 



ALL ADOS AND SUBTRACTS CONVERGE IN ONE OF THE NEXT TWO STATES. 
EMODD ALSO ENTERS HERE TO NORMALIZE AND PACK ITS FRACTION RESULT. 



=1011 
ADDD. 31 



=1111 



=;END 



;0V 

SC SHF.VAL, 

D DAL. NORM, 

J7ADDD.36 



;11 

SC SC-KC.203, 
FE SC-KC.203, 

J7aDDD\31 



RESULT FRAC <H> IS NOT 
POS DIFf, NORMALIZE RESULT 
D 6ETS NORMALIZED FRAC <H> 



RESULT FRAC <H> IS 
ADJUST EXP 

COUNT THE DUMMY LEADING 
SET FRAC <H>, CLR FRAC <L> 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600.12043 

; P1W124.MCR 600,12043 

; FLOAT .MIC [600.12043 F & D floatinq point 



I 8 



F KD floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



ADDD. SUBD 



Fiche 2 Frame 18 Sequence 305 

VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 304 



U 07E5, 0801.0128.0180.F800.0010.042C 

U 042C, 0000. 183C, 01 80, F 800, 0000, 0678 

U 042D, 0819.0014. 0580, F 800, 0000, 067B 

U 07E8. 0C01,0O3C,01F8,FAF8,O0OO,O7F5 

U 07F5, OD00.003C,01CO,FA78,0181,07FE 

U 07FE, OC01.003C,01F8,FAF8,0080,A806 

U 0806, 001C,2030.7D80,FA78,0114,680A 

U 080A, 0000, 01 3C, 41 80. F 800, 0000,0440 

J 0440, 0018, 0014, 41CO,F800.0010,03FC 

U 0441, OF18,D738,1980.F988,OOF4,644C 

U 044C, 0000, 003E, 0180, F800, 0000,0010 

U 04',D, 0000, 003E, 0180, F800, 0000,0012 



RCRi53 0, 
D_Q,Q_0 



D DAL.SC, 
St FE,FE SC, 
Q RCR153 



SC SC-FE, 

D Q,Q 0, 
RrR153 D 



1 1 474 ADDD . 33 : ; 

11475 D NOT.D.CLK.UBCC. 

11476 Z? 
11477 

11478 =0 ;0— 

11479 ALU7.J/ADDD.31 
11480 

11431 ;1 

11482 0+KC.13. 

11483 J7ADDD.31 

11484 =;END 
11485 

11486 ADDD. 36:;- 

11487 

11488 

11489 

11490 

11491 

11492 

11493 

11494 

11495 

11496 

11497 

11498 

11499 

11500 

11501 

11502 

11503 

11504 

11505 

11506 

11507 

11508 

11509 =0 

11510 

11511 

11512 

11513 

1i514 

11515 

11516 

11517 

11518 

11519 

11520 =***0 

11521 

11522 

11523 

11524 

11525 

11526 =;END 



LAB RCR153, 

ALU LACOR3D,CLK.UBCC. 

FE_KC183 



KC.803, 
Z? 



;0 

Q LA+KC.803, 

CDc.oSCC. 

J/PACKD 



;1 

SC KCZER03, 
RCFT13 KCZER03,D 0, 
SET.CCTINST), ~ 
STATEO? 



;0 

RETURN10 



;1 

RETURN12 



TS C0MP OF FRAC <H> 
IS LOU FRAC ALL ZEROS? 



IS DIFF ZERO? 

YES, FRAC <L> = 0, MAKE 2'S COMP OF FRAC <H> 



COME HERE WITH FRAC<H> NORMALIZED 

SAVE FRAC <H> 

SETUP FOR NORMALIZE FRAC <L> 



NORMALIZE FRAC <L> 

SC 6ETS EXP, FE GETS *OF LEADING ZEROS 

Q 6ETS BACK FRAC <H> 



EXP_EXP - *0F LEADING ZEROS 



LATCH FRAC <L> 

CHECK IF RESULT FRAC'S ARE ZEROS 

SET FE TO 24. FOR PACKING DOUBLE RESULT 



PRESET SLOW CONSTANT FOR ROUNDING 
RESULT FRAC'S = 0? 

RESULT FRAC'S .NE. 
ADD 80(HEX) FOR ROUNDING 
CICCK iW FOR CARRY IF ANY 
GJTO PACK DOUBLE FLOATING RESULT 

RESULT FRAC'S = 
RESULT SET TO 

SET COND CODES 

SEE IF WE WERE CALLED FROM POLYD 



NOT CALLED FROM POLYD 
WHAT A WASTE 

CALLED FROM POLYD 

TREAT AS A NON-UNDERFLOW 



ZZ-ES0AA-124.C ; FLOAT .MIC C600, 12043 



F t D float inc 



J 8 



poin14-Jan-82 Fiche 2 Frame J8 Seguence 306 
, ,-.^..,v., ww-.^w-ru .-„„.«„. ,».w^ ,-* «... «. .^:30:16 VAX1 1/780 Microcode : PCS 01. FPLA OE, WCS124 Page 
FLOAT .MIC C600. 1204] F fc D floating point : ADDD, SU8D 



P1 W1 24 .MCR 600.1 20A3 MICR02" 1L(03) 14-Jan-82 ^5:30:16 



305 



U 080E. 08^.2000,0180^800,0010^0816 

U 0816, 001 F, 0300, 01 CO. F 800, 0000, 04AC 

U 04AC. 001 9,2000, 05CO,F800.0000,04AE 

U 04AE. 0000,003C,8D80,F800,0094,881E 

U 081E, 0000,123C. 7580, F 800, 0095, 8546 

U 0546, OD10,003A,0180,F800,0083,0010 

U 0547. 0010,003A,0180.rdOO,0083,0010 

U 054E, 0CO0,123C,75F8,F800,0084,8557 

U 054F, 0CD3, 1228, 75 CO, F 800, 0084. 8557 

U 0557. OD10.003A, 0180, F800. 0083, 0021 

U 055F. 0810,O03A,C1F0.2C00. 0083, 0031 



11527 
11528 
11529 
11530 
11531 
11532 
11533 
11534 
11535 
11536 
11537 
11538 
11539 
11540 
11541 
11542 
11543 
11544 
11545 
11546 
11547 
11548 
11549 
11550 
11551 
11552 
11553 
11554 
11555 
11556 
11557 
11558 
11559 
11560 
11561 
11562 
11563 
11564 
11565 
11566 
11567 
11568 
11569 
11570 
11571 
11572 
11573 
11574 
11575 
11576 
11577 
11578 



ADDD/SUBO ALIGNMENT SUBROUTINE 

ENTER FROM ADDD. 10 BRANCH TARGETS WITH <Q,D> = FRACTION TO BE ALIGNED, 
FE = SC = AMOUNT TO ALIGN IT, LC(EXP) = LARGER OF (SRC EXP, DST EXP) 
ENTRY IS AT ALNNEG IF <Q,D> SHOULD BE NE6ATED FIRST. ELSE AT ALNPOS. 

THERE ARE SEVERAL RETURN POINTS: 

RETURN10 EXP DIFF < 32 - D HAS ALIGNED FRAC<L>, SC HAS LC(EXP) 
RETURN21 32<=EXP DIFF<64 - <Q,D> HAS ALIGNED FRAC. SC HAS LC (EXP) 
RETURN31 EXP DIFF > 63 - <Q,D>=<8IG OP<H>,SRC FRAC<H», SC=LC(EXP) 
NOTE: MAX EXP DIFF IS 6S (INSTEAD OF THE USUAL 57) BECAUSE POL YD USES ADDD 



ALNNEG: D.O-D, CLK.UBCC 
Q.O-Q. C31? 

• Q - - -————• 

QJJ-KC.13 



=0* 



ALNPOS: 



=0110 



=;END 

=0111 
ALN.01 



SC.SC+KC.1F.7, CLK.UBCC 



EALU SC+KC.203, CLK.UBCC 
St_FE, EALU? 



;00 

D_DAL. 



SC, SC LC(EXP). 
• RETURNC10J 



6 DAL.SC, SC AC (EXP). 
RETU B NC10J 

; 1 

SC SC+KC.203, D Q, Q 0, 
EACU.N?, J/ALN.01 

. 1 1 

SC SC+KC.203, D Q, 
AL0.-1, Q ALU, EALU.N? 



;0 

D DAL.SC, SC LC(EXP), 
RETURNC213 

;1 

D LC. SC LC(EXP). 
Q IDCT037 RETURNC313 



NEGATE FRACTION - LOW ORDER FIRST 



NEGATE HI-ORDER AND CHECK FOR BORROW 

BORROW 
OK, BORROW! 

NO BORROW 

SET EALU.N IF EXP DIFF => 32 



SET EALU.N IF EXP DIFF > 63 

RESTORE ORIG EXP DIFF, TEST DIFF=>32 



EXP DIFF < 32, FRACTION POSITIVE 
D GETS LOW-ORDER ALIGNED FRAC 



EXP DIFF < 32, FRACTION NEGATIVE 

NEGATIVE SCHMEGATIVE - LET THE CALLER WORRY 



EXP DIFF => 32, FRACTION POSITIVE 

SHIFT FRACT 32 PLACES RIGHT, REDUCE AMT BY 32 

TEST IF EXP DIFF > 63 

EXP DIFF => 32, FRACTION NEGATIVE 

SHIFT FRAC 32 BITS RT, REDUCE SHFTCT BY 32 

SIGN-EXTEND FRACT, TEST IF EXP DIFF > 63 



32<= EXP DIFF <= 63 

<Q,D> HAVE ALIGNED SIGN-EXTENDED FRACT 

SC HAS BIGGER EXP - RETURN 

63 < EXP DIFF 

HOPELESS - D GETS BIGGER OPERAND<H>, 

SC GETS BIGGER EXP, Q GETS SRC FRAC<H> 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,12043 

; P1U1 24. MCR 600.12041] 

; FLOAT .MIC C600. 12043 F & floating point 



K 8 



F & D floating poin14-Jan-82 
MICRO? 1L(03) K-Jan-82 15:30:16 



MULD 



Fiche 2 Frame K8 Seguence 507 

VAX1 1/780 Microcode : PCS 01, FPLA OE. WCS124 Page 306 



U 0228, 0000.003C,19EO,F988,K04,6325 



U 0325, 0800, 003D,1 980, F 860, 1404, 7003 



U 0335, 0001,003C, 0180, F8D8, 0000. 0796 



U 038C, 0000,003D,1980,F800, 1404,7003 
U 039C. F000,003F,01F0,F847, 0000, 0300 



11579 
11580 
11581 
11582 
11583 
11584 
11585 
11586 
11587 
11588 
11589 
11590 
11591 
11592 
11593 
11594 
11595 
11596 
11597 
11598 
11599 
11600 
11601 
11602 
11603 
11604 
11605 
11606 
11607 
11608 
11609 
11610 
11611 
11612 



.TOC 



F & D floating point : MULD* 



"MULD *—R 

•ENTER HERE AT B.FORK WITH SRCO IN <RC0, D>, R IN LA, LB. 

.-LEAVE HERE WITH SRCO IN <RC0, Q>, DSTO IN <RC1, D> TO GOTO SAME FLOW 

;AS *-*, *-*-*. 



228: 



=0**** 



STATE KCZER03, 
RCCT13 LA, 
Q D 



=;END 



D R(PRN+1), 
STATE KCZER03, 
CALL,J/MULD.00 

R(PRN) 0, 
J/ADDD7P 



CLR POLYD FUG 
RC1 GETS DSTO <H> 
GETS DSTO <L> 



D GETS DSTO <L> 
CLR FLAG FOR POLYD 
CALL MULD SUBROUTINE 

RETURN WITH RESULT IN <D, RC1> 
STORE RESULT <H> 
GOTO STORE RESULT <L> 



.•DOUBLE FLOATING POINT ARETHMETIC MULD. 

.-ENTER FROM DP WITH SRC OPD IN <RC0, Q>, DST OPD IN <RC1, D>. 

.-ALWAYS YIELDS NORMALIZED AND ROUNDED RESULT. 



38C: 
MULD: 



39C: 



STATE KCZEROJ, 
CALL,J/MULD.OO 



;1 

WRITE. DEST,J/WRD 



CLR FLAG FOR POLYD 
CALL MULD SUBROUTINE 



WRITE RESULT 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,1 2043 

; P1U1 24. MCR 600-1 204] 

; FLOAT .MIC C600.1204D F I D floating point 



L 8 



F fc D floating poin14-Jan-82 
MICR02 1L(03) H-Jan-82 15:30:16 



DIVD 



Fiche 2 Frame L8 Sequence 308 

VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 307 



U 0229. 0000,003c, 01E0,F988.0000,082A 
U 082A, 0800,003C, 1 80, F 860, 0000, 0360 



U 0360. OC01,003D,6580,F980,0084,6608 



U 0370, 0001, 5A3C, 01 80, F 800. 0050, OOF C 



U 0388, OC01.003D, 6580, F9B0, 0084, 6608 

U 0398, OO01,5A3C,0180,F80O,0050,0O5C 

U 005C, FOPO,003F,01FO,F847,0000,0300 

U 005E. F00O,003F,01F0,F847,0020,030O 



11613 
11614 
11615 
11616 
11617 
11618 
11619 
11620 
11621 
11622 
11623 
11624 
11625 
11626 
11627 
11628 
11629 
11630 
11631 
11632 
11633 
11634 
11635 
11636 
11637 
11638 
11639 
11640 
11641 
11642 
11643 
11644 
11645 
11646 
11647 
11648 
11649 
11650 
11651 
11652 
11653 
11654 
11655 
11656 
11657 
11658 
11659 
11660 
11661 
11662 



.TOC 



F & D floating point 



DIVD* 



;DJVD, *-R 

.-ENTER HEftE AT B.FOftK WITH SRCO IN <RC0, D>, R IN LA, L8. 

.-LEAVE HERE WITH SRCO IN <RC0, Q>, DSTO IN <RC1, D> TO GOTO SAME FLOW 

;AS *-*, *-*-*. 



229: 



cQ**** 



=;END 



RCCT1J LA, 
Q_D 



D RCPRN+1) 



RCCT63 D, 

St KC.103, 
CAL1,J/D1VD.S 

ALU D,N*Z ALU.VfcC 0, 

worCpsl .7?,j/addd\m 



RC 1 GETS DSTO <H> 
Q GETS DSTO <L> 



D & TS DSTO <L> 



SAVE DSTO <L> 

D GETS SRCO <L> 

SC GETS 16. FOR SWAP WORD OF FRAC <L> 

CALL DIVD SUBROUTINE 

RETURN WITH RESULT IN <D, RC1> 
SET COND CODES N,Z 
GOTO STORE RESULT <H,L> 



;DOUBLE FLOATING POINT DIVD. 

.•ENTER FROM DP WITH SRC OPD iN <RC0, Q>, DST OPD IN <RC1 , D>. 

;QU0T = DST/SRC = <RC1, D> 

.-ALWAYS YIELDS NORMALIZED AND ROUNDED RESULT. 



388: 

DIVD: ; 

RCCT63 D. 

D „ Q ' " 
StKC.103, 

CAd, J/DIVD.S 

39g : •.—-..-.——.—, — 

ALU D,N&Z ALU. VftC 0, 
WOR0,PSL.7? 

=110* ; 

WRITE.DEST.J/WRD 

. ! 

SET.V, 

WRITE. DESTJ/WRD 
=;END 



SAVE DSTO <L> 

D GETS SRCO <L> 

SC GETS 16. FOR SWAP WORD OF FRAC <L> 

CALL DIVD SUBROUTINE 



SET COND CODES N,Z 
HAS TO RESET PSL<V>? 



NO: 

WRITE RESULT 



RESET PSL <V> 
WRITE RESULT 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600. 12043 „ _ 

P1U124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 
FLOAT .MIC [600, 12043 F & D floating point : DIVD 



M 8 



& D float ingpo|n14-Jan-82 



15:30:16 



Fie he 2 Frame M8 Seguence 309 
VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 



308 



U 0608. 0D01,003D,BD80,F 998, 0084, 66CA 



U 0609, 0818, 4038, 4580, F800, 0050, 0470 



U 06GA. 0F18,003A, 1980, F988, 0050, 0010 



U 0608, 0800,003C,D184,3E08.0081,082E 



U 082E, 0001, 203C,CD83,3EF 8, 0000,0832 



U 0832, 0003,003c, D1F0,2E78,14C8. 6836 



11663 
11664 
11665 
11666 
11667 
11668 
11669 
11670 
11671 
11672 
11673 
11674 
11675 
11676 
11677 
11678 
11679 
11680 
11681 
11682 
11683 
11684 
11685 
11686 
11687 
11688 
11689 
11690 
11691 
11692 
11693 
11694 
11695 
11696 
11697 
11698 
11699 
11700 
11701 
11702 
11703 
11704 
11705 
11706 
11707 
11708 
11709 
11710 
11711 
11712 
11713 
11714 
11715 
11716 



.•DOUBLE FLOATING POINT DIVD ROUTINE. 



.•ALGORITHM: 



.•INPUTS: 



OUTPUTS: 



.•TEMPORARIES: 



.•RETURNS: 



NON-RESTORING DIVIDE IN TWO LOOPS, ONE FOR THE FIRST 32 BITS 
OF QUOTIENT AND ONE FOR THE NEXT 26 BITS. 

RCCT03 = SRC<H> 
D = Q = SRC<L> 
RCCT13 = DST<H> 
RCCT63 = DST<H> 
SC = 10 (HEX) 

D = PACKED ROUNDED QUOTIENT<H> 

RCCT13 = PACKED ROUNDED QUOTIENT<L> 

CONDITION CODES AND IDCCES3 SET UP FROM QUOTIENT 

RCR153, RCCT2J, RCCT33, RCCT43, RCCT53, 

IDCT03, IDCT1J, IDCT23, ID["T33, IDCT43, 

SS, SD, Q. FE, LA, LB, LC 

(RCR13 IS USED INTERNALLY, BUT IT IS SAVED FIRST & RESTORED AFTER) 

RETURNS a 10 



=00 
DIVD.S: 



;00 

RCCT33 D, 
D DAL.5C, 
SZ KC.FFF93, 
CArL, J /UNPACK 



• 01 

D KL\ 80003, 

nEz alu.v&c o.uord, 

J/DTVD.20 

RCCT13 KCZER03, D 0, 
NSZ ALO.V&C 0, " 
RETORN10 



=;END 



;11 

IDCT43 D, 

D RCRO, 

SD SS SC FE 



SAVE SRCO <L> 

SWAP WORD OF SRCO <L> 

SETUP SHIFT AMOUNT -7 

CALL UNPACK DOUBLE FLOATING PT OPERANDS ROUTINE 

RETURN1 , SRC = 0, DST MAY BE 
DIVISOR IS 0, NO DIV 
COND CODES SET BY D'END 



RETURN2, SRC.NE.O, DST = 
RESULT QUOTIENT IS 
COND CODES SET BY D'END 
GOTO WRITE RESULT 

RETURN3, SRC.NE.O, DST.NE.O 
SAVE DST (D'END) FRAC <L> 
D GETS R1 
SD, SC GET RESULT SIGN, EXP 



SD NOT.SD, 
JDrT33.D, 
RCR153 Q 



FIX RESULT SIGN 

SAVE R1 

GET SRC (D'SOR) FRAC 



<L> 



Q IDLT43, 
LAB RCR1§3, 
STATE 0(A) 



Q GETS DST (D'END) r RAC <L> 
LB GETS SRC (D'SOR) FRAC <L> 
CLR POL YD FLAG 



N 8 
ZZ-ESOAA-124.0 ; FLOAT .MIC C600. 12043 F & D floating poin14-Jan-82 Fiche 2 Frame N8 Seguence 310 
P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 309 
FLOAT .MIC C600. 12043 F & D floating point : D7VD 



U 0836. 0001.203C,C1FO,2E88.0000.083A 



•u 083A. 0001 ,203C,C5F0.2DA0. 0000. 083E 



U 083E. 0000,003C. 0180, F888. 0000, 084E 



U 084fc. 0C2C, 0000. 4"r8,FBA0,00F4, 8852 



U 0852, 08_*1,0O0C,5O28,F888,O114,6861 



U 0861. 0018.0338, 1D80.F990, 0081 ,0480 



U 0480, 0O2C.O014,0180,FBA0,00F0,C89A 



U 0482, 002C, 0000. 4180. F3A0, 1474,6865 



U 04BC, 000).<33C.h"5F6,FAF8,0084,64DC 
U 04BE, 0000, 033f, 0180, F80G, 0104. 6^CC 



11717 
11718 
11719 
11720 
11721 
11722 
11723 
11724 
11725 
11726 
11727 
11728 
11729 
11730 
11731 
11732 
11733 
11734 
11735 
11736 
11737 
11738 
11739 
11740 
11741 
11742 
11743 
11744 
11745 
11746 
11747 
11748 
11749 
11750 
11751 
11752 
11753 
11754 
11755 
11756 
11757 
11758 
11759 
11760 
11761 
11/62 
11763 
11764 
11765 
11766 
11767 
11768 
11769 
11770 
11771 



=0* 



=;END 
DIVD. 



Q IDCT03, 

RDmja 



RCCT43 Q, 
QIDCTTD 



LA RACR13 



Q GETS D'SOR FRAC <H> 
R1 GETS D'END FRAC <L> 



RC4 GETS D'SOR <H> 

Q GETS DST (D'END) FRAC <HJ 



LATCH D'END FRAC <L> 



SC SC+KC.803, ; ADD EXP BIAS 128. TO RESULT EXP 

t> 3. Q -0, ; t) GETS D'END FRAC <H>, CLR QUOT BITS 

IX KCCT4J8R1 (LA-IB). LEFT,;LC GETS D'SOR<H>, R1 GETS IMMED D'END FRAC<L> 

SJ7ZERO, " ; SHIFT IN ZEROS 

SET. CC (LONG) ; SET PSL<N,C> BITS 



ALU DCINST.DEP3LC, 
D.ALU.LEFT, SI/DM, 
Q Q.LEFT, 
L* RACR13, 
CL2.UBCC, 
FE KC.1E3 



SC FE,RCCT23 KCSC3, 
C3T? 



3UBT HIGH FRACS 

SHIFT IN QUOT BIT 

LATCH D'END FRAC <L> 

FLAG FOR NEXT OPERATION, + OR 

SET LOOP C7 FOR 31 LOOPS 



SC GETS 30., SAVE RESULT EXP IN RC2 

+ OR - ? 



. ; 

LC RCCT43&RI (LA^LB).LEFT,; R1 GETS IMMEDIATE D'END FRAC <L> 

SI7ZER0, ; SHIFT IN ZEROS 

SET. CC (LONG), ; SET PSL<N,C> BITS 

SC SC+1, ; INC COUNTER BY 1 SINCE 1ST QUOT BIT 

J/PIVD.08 ; GOTO ADD HIGH FRACS 



IS 



• i 

STAfE KC.803, ; SET FLAG TO INC EXP BY 1 

LC RCtT43&R1 (LA-LB). LEFT.; R1 GETS IMMEDIATE D'END FRAC <L> 

SI7ZER0, " ; SHIFT IN ZEROS 

SET.CC(LONG), ; SET PSL<N.C> BITS 

J/DIVD.06 ; G0"0 SUBT HIGH FRACS 



04:;0 

SC KC.1A3, 
RCR153 Q, 

C31?, J/DIVDJO 



=;END 



;1 

FE KC.83 
C3T? 



FIRST 32 QUOT BITS DONE 

SHIFT AMOUNT FOR LOWER QUOTIENT SITS 

SAVE HIGH QUOT FRAC BITS 

CLR QUOT FOR ADDITIONAL QUHT BITS 

+ OR - FOfc NXT QUOT BIT? 



PRE-SET SHIFT AMOUNT 
NXT OPERATION, + OR - 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,12043 

; P1W124.MCR 600,12043 MICR02 1L(03> H-Jan-82 

; FLOAT .MIC [600. 12043 F(D floating point : DIVD 



B 9 



i D floating poin14-Jan-82 
T5:30:16 



Fi che 2 Frame B9 Seguence 311 

VAX1 1/780 Microcode : PCS 01, FPLA 0E. WCS124 Page 310 



U 04CC, 002C, 0014, 0580, FBA0.00F4.A89A 



U 04CE. 002C, 0000, 0580, FBA0.00F4.A865 



U 0865, 0831, HOC, 0028, F888,0010,048C 



U 089A, 0831, 142C, 0028. F 888, 001 0,048C 



U 04DC, 002C, 0014, 0580, F8A0,00F4,A8A2 



U 04DE, 002C, 0000.0580. FBA0,00F4,A89E 



U 089E. 0831, HOC, 0028, F888, 0010. 04F0 



11772 
11773 
11774 
11775 
11776 
11777 
11778 
1 1 779 
11780 
11781 
11782 
11783 
11784 
11785 
11786 
11787 
11788 
11789 
11790 
11791 
11792 
11793 
11794 
11795 
11796 
11797 
11798 
11799 
11800 
11801 
11802 
11803 
11804 
11805 
11806 
11807 
11808 
11809 
11810 
11811 
11812 
11813 
11814 
11815 
11816 
11817 
11818 
11819 
11820 
11821 
11822 



=0* 



LC RCCT43&R1 (LAHB).LEFT 

SI72ERO, 

SET. CC (LONG), 

SC SC-KC.U, 

J/01 VD. 08 



;V 



LC RC[T43&R1_(LA-LB).LEFT 

SI72ERO, 

SET. CC (LONG), 

SC SC-KC.13 
=;ENO 
DIVP.06:; 

ALU DCINST.DEP3LC, 

D_ACU.LEFT,SI/DIVD, 

Q Q.LEFT, 

U* RACR13, 

CLR.UBCC, 

SC.GT.O?, J/DIVD.04 



DIVD. 08: 



ALU D+LC+PSL.C, 

D ACU. LEFT, SI /DIVD, 

Q Q.LEFT, 

LA RACR13, 

CLR.UBCC, 

SC.GT.O?, J/DIVD.04 



=0* 

DIVD. 10: 



LC RCCT43&R1 (LA+L8).LEFT, 

SI7ZERO, 

SET.CC(LONG), 

SC SC-KC.13, 

J/BIVD.12 



: R1 GETS IMMEDIATE D'END FRAC <L> 
SHIFT IN ZEROS 
SET PSL<N,C> BITS 
DECREMENT COUNTER BY 1 
GOTO ADD HIGH FRACS 



; R1 GETS IMMEDIATE D'END FRAC <L> 
SHIFT IN ZEROS 
SET PSL<N.C> BITS 
DECREMENT LOOP COUNT 



SUBT HIGH FRACS 

SHIFT IN QUOT BIT 

LATCH D'END FRAC <L> 

FLAG FOR NEXT OPERATION, + OR - 

END OF 1ST LOOP? 



ADD HIGH FRACS 

SHIFT IN QUOT BIT 

LATCH D'END FRAC <L> 

FLAG FOR fJEXT OPERATION, ♦ OR - 

END OF 1ST LOOP? 



: R1 GETS IMMEDIATE D'END FRAC <L> 
SHIFT IN ZEROS 
SET PSL<N,C> BITS 
DECREMENT COUNTER BY 1 
GOTO ADD LOU FRACS 



=;END 



. ! . 

LC RCCH3&R1 ( LA-LB). LEFT,; R1 GETS IMMEDIATE D'END FRAC <L> 

SI7ZER0, ; SHIFT IN ZEROS 

SET.CC(LONG), ; SET PSL<N,C> BITS 

SC SC-KC.13 ; DECREMENT COUNTER BY 1 



ALU DCINST.DEP3LC, 
D AEU.LEFT,SI/DIVD. 
0"Q.LEFT 4 
L^ RACR13, 

clR.ibcc, 
sc.gt.o?. j/divd.14 



SUBT HIGH FRACS 

SHIFT IN QUOT BlT 

LATCH D'END FRAC <L> 

FLAG FOR NEXT OPERATION, ♦ OR - 

END OF 2ND LOOP (LOW QUOT BITS) 



Z7-ES0AA-124.0 ; FLOAT .MIC C600. 12043 F 
P1W12'„.MCR 600.12043 MICR02 1L(03) 
FLOAT .MIC [600.12043 F 6 D floating poi 

11823 
11824 
11825 
11826 
11827 
11828 
11829 
11830 
11831 
11832 
11833 
:1834 
11835 
11836 
11837 
11838 
11839 
11840 
11841 
11842 
11843 
11844 
11845 
11846 
T847 
11848 
11849 
11850 
11851 
11852 
11853 
11854 
11855 
11856 
11857 
11858 
11859 
11860 
11861 
11862 
11863 
11864 
11865 
11866 
11867 
11868 
11869 
11870 
11871 
11872 
11873 
11874 



t D floating poin14-Jan-82 
14-Jan-32 15:30:16 



nt 



DIVD 



C 9 

VAX1 1/780 Mi 



U 08A2. 0831. 142C. 0028, F888,OO10.04F0 



U O4F0. 0C00.003C.CDF0.2E78.0000,08A6 



U 04F2. 0000.033C.0180.F800.0000.04DC 



U 08A6. 0001 .203C.D5F8.FA88. 0084, 68AA 



U 08AA, OD10.0038,7D80,F910,0186.688A 



U 08BA, 0800, 163C.41E0.F800, 0000, 02D4 



U 02D4, 0019.2014.41 CO, F800, 0010, 03FC 



U 02DC, 0019. 2014, 41C0.F800, 0090, C3FC 



U 0470, 0818, 0039, 4580, F800, 0000, OEOO 



U 0471, 0000,00?E,0180,F800. 0000,0010 



D I VD . 1 2 : ; 

ALU D+LDPSL.C, 
D_ArU.LEFT,SI/DIVD, 
Q Q.LEFT. 
L* RACR13, 

clK.ubcc 

SC.6T.0? 
=*0* 
DI VD . 1 4 : ; 

D Q.Q IDCT33, 
LAB RlR153, 
J/DlVD.16 



=;END 



C31?. J/DIVD.10 



DI VD . 1 6 : ; 

RCR13.Q, 

SC KC.63.Q 



D DAL.SC, 
St RCCT23, 
FE"KC.183 



Q D.D J.A.KC.803. 
STATE7-4? 



=0*** ;0- 



Q Q+KC.803.CLK.U8CC, 
J7PACKD 



=;END 



;1 

SC SC+1, 

5+KC.803.CLK.UBCC. 

J7PACKD 



=0 

D J VD . 20 : ; 

D KC. 80003, 
CAlL.J/DIVBYO 



Fie he 2 Frame C9 Sequence 312 

crocode : PCS 01, ."PLA OE, WCS124 Page 



ADD HIGH FRACS 

SHIFT IN wUOT BIT 

LATCH D'END FRAC <L> 

FLAG FOR NEXT OPERATION, ♦ OR - 

END OF 2ND LOOP (LOU QUOT BITS)? 

YES: END OF LOOPS 

D GETS LOW QUOT BITS, GETS BACK OLD R1 

LATCH HIGH QUOT BITS 

GOTO PACKING 

NO: NOT END YET 

GOTO ♦/- FOR NXT QUOT BIT 



RESTORE R1 

SET TO ALIGN LOW QUOT BITS 



SHIFT LOW QUOT BITS TO LEFT 

SC GETS RESULT EXP 

FE GETS 24. FOR NXT SHIFT 



D GETS BACK HIGH QUOT BITS 
INC EXP BY 1 ? 



Q GETS LOW QUOT FRAC BITS 
GOTO PACKING 



EXP ADJUSTED BY 1 

Q GETS LOW QUOT FRAC BITS 

GOTO PACKING 



311 



FP -0 

GOTO <ET CES FL DIV BY 



. i 

RETURN10 ; 

; *********************************************** 

; * Patch no. 071. PCS 0471 trapped to UCS 1190 * 

• *********************************************** 

=;END 



D 9 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600, 12043 F t floating poin14-Jan-82 Fiche 2 Frame 09 Seguence 313 

; P1U124.MCR 600.12043 MICR02 1L(03) H-Jan-82 75:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS1 24 Page 

; FLOAT .MIC [600,12043 F & D floating point : UNPACK ONE DOUe' E OPERAND 



312 



U 08BE, 0001,203C,65EO.FAF8,008*,68DA 



U 08DA, OD00.003C,B9CD.FA78,0884.68DE 



U 08DE, 0D00,003C,5DE0,F800.0084,68FD 



U 08FD, 0D00, 003C, 0180, FA78, 0018,6911 



U 0911, OC01,123C.C5F8,3DA8,0000,03E3 



U 03E3, 0000, 003E.0180,FA78, 0083, 0002 



U 03E7, 0F18, 003A.1980. F9a8, 0084, 6001 



11875 
11876 
11877 
11878 
11879 
11880 
11881 
11882 
11883 
11884 
11385 
11886 
11887 
11888 
11889 
11890 
11891 
11892 
11893 
11894 
11895 
11896 
1189,' 
11898 
11899 
11900 
'1901 
11902 
11903 
11904 
119C5 
11906 
11907 
11908 
11909 
11910 
11911 
11912 
11913 
11914 
11915 
11916 
11917 
11918 
11919 
11920 
11921 
11922 
11923 
11924 



.TOC 

; INPUTS: 



; OUTPUTS: 



.•TC'IPORARIES: 
.•RETURNS: 



FRO floating point : UNPACK ONE DOUBLE OPERAND" 

C = OPERAND<H> 
D * OPERAND<L> 

SC = EXPONENT 

SS = SD = SIGN 

IDCT13 = RCCT5J = HIGH FRACTION WI T H NORMALIZE BIT 

D = LOU FRACTION 

RCR153, LA, LB 

RETURNS a 1 IF OPERAND = 
RETURNS a 2 IF OPERAND NON-ZERO 



UNPK: 



UNPK.1 



=*011 



^;END 



R[*153 Q, 
Q_D.SCJCC.103 



D DAL.5C, 

Sr KC.19J, 

Q RCR153(FRAC), 

SS JS.X0R.ALU15£S^ ALU15 

CHR.FLT.OPR 



D.DAL. SC, 

o_D,scja.7: 



D DAL.SC, 

EAlU RCR153(EXP>, 

CLK.OBCC 



IDCT13 J>,RCCT5JJ), 
D 0,0 0, 
EALU.7? 



;0 

D DAL.SC, 

SC_RCR153(EXP), 

RETURN2 



;1 

RCCT53 KCZER03,D 0, 
SC KCZER03, 
RETURN1 



R15 GETS OPR<H> 

READY TO SWAP OPR <L> WORD 



LOU FRAC WORD-SWAPPED 
FOR FRAC <H> ALIGN 
OPR FRAC <H> 

SET SS/SD 
CHECK FOR OPR = -0 



RIGHT JUSTIFIED FRAC <H> 

SET FOR LEFT JUSTIFIED FRAC <H> 



D GETS UNPACKED FRAC <H> 
CLOCK IN IF EXP 



STORE UNPACKED FRAC <H> 
READY FOR FRAC <L> 
EXP 0? 

NO: EXP .NE. 

D GETS UNPACKED FRAC <L> 

SC GETS EXP 



YES: EXP = 
RESULT 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,12043 
; P1W124.MCR 600,12043 MICR02 1L(03) 



E 9 



FLOAT >IC C606. 12043 



I D floating poin14-Jan-82 
K-Jan-82 15:30:16 



Fiche 2 Frame B9 Sequence 314 

VAX11/780 Microcode : PCS 01. FPLA 0E. WCS124 Page 313 



F & D floating point : CVTBF, CVTWF, CVTLF 

.TOC " F ft D floating point : CVTBF. CVTWF, CVTLF" 



U 024F, 0802.C93C.25FF.F800.00F4.65BA 

U 05BA, 0E0O,0D3C,0180.F80O,01OC,A610 
U 05BB. 0OOO.0D3C ,01 80, F800. 0000,0650 

U 0610, FCOO,003F,01FO,F847,0000,0300 

U 0612, F808, 0038. 01 F0,F847, 0000,6300 

u 0613, 081 F, 2000, 01 83. F 800. 0000. 05BA 



11925 
11926 
11927 
11928 
11929 
11930 
11931 
11932 
11933 
11934 
11935 
11936 
11937 
11938 
11939 
11940 
11941 
11942 
11943 
11944 
11945 
11946 
11947 
11948 
11949 
11950 
11951 
11952 
11953 
11954 
11955 
11956 
11957 



CVTB/W/LF C4C/4D/4E) SRC.RX, DST.UF 

.-ENTER HERE AT B.FORK. WITH D CONTAINS SRC 



24F: 

CVTBF : 



D D.SXTCINST.DEPJ.Q 0, 

SET. CC( INST), 

CLR.SD&SS, 

SC KC.A03, 

IRT? 



CVTBF. 0:FE SC-SHF.VAL, 
D PAL. NORM, 
SIGNS?, J/CVTBF.1 

;1- 

SIGNS7.J/CVTLF.2 
=;END 

=00 ;C0 

CVTBF. 1:0.0. WRITE. DEST 

=10 



; 10 

EALU FE,D PACK.FP, 
k.ITE.DEST 



=;END 



;11 

D.O-D, 

SD NOT.SD, 

J/rVTBF.O 



SIGN EXT SRC TO D 

SET COND CODES 

ASSUME POSITIVE RESULTS 

SC SET TO BIAS 128 ♦ SHF 32. 

IS IT CVTLF? 

NO: IT IS CVT8F/CVTWF 
ADJUST EXP FOR NORALIZATION 
D GETS NORMALIZED FRAC 
BEN ON D.NE.O, DC31J 

YES: CVTLF 

TEST SRC SIGN AND ZERONESS 



CONSTRAINT FOR SIGNS; ALSO C31 (SEE CVTBF. 5+2) 
SRC=0 (OR NO OVFLC ON ROUND - SEE CVTBF. 5*2) 



SRC IS POS: D GETS PACKED FP RESULT 
GOTO WRITE RESULT 



NEGATIVE SOURCE. MAKE IT POSITIVE 
SET RESULT SIGN 
NORMALIZE AND STORE THAT 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600.120A3 
P1U124.MCR 600,1204] MICR02 1L(03) 



F 9 



FLOAT ImIC C600,12043 



F I D floating poin14-Jan-82 
H-Jan-82 15:30:16 



F 6 D floating point : CVTBF , CVTWF, CVTLF 



Fiche 2 Frame F9 Sequence 315 

VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 314 



U 0650, FOOO,003F,01FO,F847,0000,0300 



U 0652, 0E00.183C.4180,F800.008C,A567 



U 0653, 081 F, 2000,0183, ^800, 0000, 0652 



U 0567, F 808, 0038, 01 F0,F 847, 0000, 0300 



U 056F, 0819,0014, 4180, F800, 0110, C915 



U 0915. 0008,0338,01 CO, F800, 0000, 0610 



11958 
11959 
11960 
11961 
11962 
11963 
11964 
11965 
11966 
11967 
11968 
11969 
11970 
11971 
11972 
11973 
11974 
11975 
11976 
11977 
11978 
11979 
11980 
11981 
11982 
11983 
11984 
11985 
11986 
11987 



.-HERE FOR CONVERTS OF LONG TO FLOATING, WHICH MUST ROUND IF 

; THE SIGNIFICANT BITS OF INTEGER DO NOT ALL FIT IN THE FRACTION. 



=00 ;00 

CVTLF. 2:WRITE.DEST 

=10 ;10 

CVTLF.3.-SC SC-SHF.VAL, 
D PAL. NORM, 
Kr.803, 
D.BYTES?,J/CVTLF.4 

D 0-D, 
SB NOT.SD, 
J/rVTLF.3 
=;END 

CVTLF. 4:EALU SC,D PACK.FP, 
WRITE. DEST 



=;END 



;1 

D D+KC.803,CLK.UBCC, 
FE~ SC+1 



EALU SC,Q PACK.FP, 
C31?, J/C9TBF.1 



D.EQL.O 
SRC ZERO 

D.GTR.O 

SRC POS: ADJUST EXP FOR NORMALIZATION 

D GETS NORMALIZED FRAC 

PRESET KMX FOR SK FOR ROUNDING 

BEN ON D.NE.O, GOTO ROUNDING 

D.LSS.O 
NEGATE SOURCE 
SET SIGN FLAG 
THEN NORMALIZE 



D<31:24> .EQL. (R0 /WING UNNECESSARY) 
PREPARE RESULT 
STORE IT 



ROUND THE FRAC 

INC EXP TO FE IN CASE CARRY FROM ROUNDING 



PACK RESULT FP AS IF THERE IS NO CARRY 
BEN ON ALU<C> 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,1204:1 
P1U124.MCR 600,12043 MICR02 1L(03) 



G 9 



FLOAT IMIC C600.1204J 



FRO floating poin14-Jan-82 
H-Jan-82 15:30:16 



F 8 D floating point : CVTBD, CVTUD, CVTLD 

.TOC " F ft D floating point 



Fiche 2 Frame G9 Sequence 316 
VAX11/7B0 Microcode : PCS 01, FPLA OE, UCS124 Page 315 



U 02CC. 0802,CO3C,25FF,F8O0,0OF4,6919 

U 0919. 0O03,OD3C,0180,F988,0104.6668 
U 0668. FOOO,003F,01FO,F847,0000,0300 

U 066A. OEOO,183C,0180,F800.018D,A577 
U 0668. 081F, 2000,0183. F 800. 0000. 066A 

U 0577. F808.003B.01FO.F847. 0000, 6300 
U 057F, ODOO,003C,01EO,F800, 0000, 0920 

U 0920, 0C19,0034,4D80,F988, 0000, 0577 



11988 
11989 
11990 
11991 
11992 
11993 
11994 
11995 
11996 
11997 
11998 
11999 
12000 
12001 
12002 
12003 
12004 
12005 
12006 
12007 
12008 
12009 
12010 
12011 
12012 
12013 
12014 
12015 
12016 
12017 
12018 
12019 
12020 
12021 
12022 
12023 
12024 
12025 
12026 
12027 
12028 
12029 
12030 
12031 



CVT8/W/LD (6C/6D/6E) 
; ENTER HERE WITH SRC IN D 



CVT8D, CVTWD, CVTLD' 
SRC.RX, DST.WD 



2CC: 
CVTID: 



=00 



D D.SXTCINST.DEP3,0 0, 
SET. CC (INST), 
CLR.SDftSS, 
SC KC.AOD 



RCCT1J 0, 
FE KC.83, 
SIGNS? 



URITE.DEST.JAJRD 



CVTID. 1:D DAL.NORM, 

FE SC-SHF.VAL, 
SC FE, 
D.8YTES7.J/CVTID.2 



D 0-D, 

S5 NOT.SD, 

J/tVTID.1 

=;END OF CONSTRAINT ON BEN/SIGNS 

=01 1 1 ; . 

CVTID. 2:EALU FE.D PACK. FP. ; 
WRITE. DEST ; 



D DAL.SC 



RCCT1J D.AND.KC.FFOOJ. 

D Q, 

J7CVTID.2 



SIGN EXT SRC TO D 

SET COND CODES 

INIT RESULT SIGN TO POSITIVE 

SC SET TO BIAS 128 ♦ SHF 32 



ASSUME ONLY 24 BI T S OF FRACTION 
GET CONSTANT FOR RECOVERING OTHERS 
TEST FOR SRC 0, ♦, OR - 

D .EQL. 
EASY CASE 

D .GTR. 

NORMALIZE FRACTION 

CALCULATE EXPONENT 

GET 8 INTO SC 

TEST BYTE 3 FOR MORE THAN 24 BITS OF FRAC 

D .LSS. 

NEGATE FRACTION 

SET DESTINATION SIGN FLAG 

GO NORMALIZE AND STORE 



D<31:24> .EQL. (RESULT FITS IN 1 LONGWORD) 
PACK FRAC AND EXP INTO D 
STORE IT AS DESTINATION 

D<31 :24> .NEQ. BEFORE NORMALIZATION 
SAVE HIGH ORDER A MOMENT 
SHIFT LOU ORDER LEFT 8 PLACES 



STORE LOU ORDER FRACTION BITS 
GET BACK HIGH ORDER 



U 0247, 0001. C03C. 0180. FSOO.OS^, 0922 

U 0922. 0018,1438, 1980. F988.0000.03F9 

U 03F9, FF00.003F.01FO.F847. 0000. 0300 

U 03FB. F000.003F.01FO.F847.0000.0300 



M 9 | 

ZZ-ES0AA-124.0 ; FLOAT .MIC C600. 12043 F ft D floating poin14-Jan-82 Fiche 2 Frame H9 Seguence 317 \ 
; PI W1 24. MCR 600,12043 MICR02 1LC03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS1 24 Page 316 
; FLOAT .MIC [600, 12043 F ft floating point : CVTFD, CVTDF 

12032 .TOC " F ft D floating point : CVTFD, CVTDF" 
12033 

12034 ;CVTFD (56) SRC.RF, DST.WD 

12035 .-ENTER WITH SRC IN D. 
12036 

12037 247: ; 

12038 CVTFD: SC D(EXP), ALU D, 

12039 SET. CC( INST), " 

12040 CHK.FLT.OPR 
12041 

1 2042 ; 

12043 RCCT13 KCZER03, 

12044 SC? 
12045 

12046 =*01 ;0 

12047 CVTFD. 1: D 0, WRITE. DEST 
12048 

1 2049 ; 1 

12050 WRITE. DEST 

12051 =;END 



GET EXP 

SET COND CODES 

CHK -0 



RESULT <L> IS ALWAYS 
CHK FOR +0 



; COND CODES ALREADY SHOW 
•SOURCE NON-ZERO - WRITE DEST 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600. 12043 

; P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 

; FLOAT .MIC r.600, 12043 F ft D floating point : CVTFD. CVTDF 



I 9 



ft D floating poin14-Jan-82 
15^30:16 



Fiche 2 Frame 19 Seguence 318 
VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 317 



U 02CD. 0019.0034, 4580, F 900. 001 0.0926 



U 0926. 0910,0138,4185, F800.0883.04F4 



U 04F4. 0819. 1414, 4180, F800. 01 10.0449 



U 04F5, 0810.D438.0180.F800.0070.03F9 



U 0449. FF18.C03B.19F0.F847, 0070. 0300 



U 0448. 0000.183C.0180.F800.0080.C434 



U 0*34, 0500, 003C. 0580, F 800, 0084. A43C 



U 043C. 0808. D438. 0180, F800, 0070, 0601 



12052 
12053 
12054 
12055 
12056 
12057 
12058 
12059 
12060 
12061 
12062 
12063 
12064 
12065 
12066 
12067 
12068 
12069 
12070 
12071 
12072 
12073 
12074 
12075 
12076 
12077 
12078 
12079 
12080 
12081 
12082 
12083 
12084 
12085 
12086 
12087 
12088 
12089 
12090 
12091 
12092 
12093 
12094 
12095 
12096 
12097 
12098 
12099 
12100 
12101 
12102 
12103 
12104 



;CVTDF (76) SRC.RD, DST.WF 
; ENTER WITH SRC IN <RC 0, D>. 

2CD: ; 

CVTDF: LCRCCT03, 

AL0j>.AND.KC.80003, 

CLK.UBCC 



LC(FRAC), 

StLC (EXP), 

CHR.FLT.OPR, 

SS SS. XOR.ALUl5ftSD ALU15 

KCT803, 

Z? 



=0 



FE SC. 

D B+KL.803, 

CCK.UBCC, 

SC?, J/CVTDF.1 



LATCH SRC <H> 

CHK FOR NEED OF ROUNDING 



GET FRAC 
GET EXP 
CHK IF -0 

SD GETS SIGN 
PRESET SLOW CONSTANT FOR POSSIBLE ROUNDING 
HAVE TO DO ROUNDING? 

YES: ROUNDING 

FE GETS OLD EXP 

ADD 1 TO FRAC 

HAVE TO INCREMENT EXP BY 1? 

CHECK FOR ZERO SOURCE 



*********************************************** 

* Patch no. 012, PCS 04F4 trapped to WCS 114C * 
*********************************************** 



=;END 



D LC.SET.CC(INST). 
Sr?,J/CVTFD.1 



NO: RESULT = SRC <H> 
SET COND CODES 
CHK FOR ZERO 



=*01 ;0 

CVTDF. 1: D 0. ALU KCZER03. 
SET.CC(IN5T). 
WRITE. DEST 



•; SOURCE WAS ZERO DESPITE RANDOM LOW BITS 
;SOURCE=0 —> DEST = 
;SET CCS TO REFLECT A ZERO 
;AND GO STORE IT 



=;END 

=0*** 
CVTDF. 



;1 

SC SC+1, 
ALO.N? 



• 

SC SC-KC.13, 

D 0.LEFT.SI/ZERO 



=;END 



.1 

EALU SC, 
D PACK.FP, 
SPT.CC(INST), 
SC?,J/EXPCK 



POSSIBLE INCREMENT EXP 
HAVE TO INCREMENT EXP? 



NO: 

GET BACK OLD EXP 

LEFT JUSTIFIED FRAC 

YES: 

EXP 'WAS INCREMENTED 

PACK RESULT 

SET COND CODES 

CHK FOR OVERFLOW 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600J20AD 

; P1W1 24. MCR 600.12043 

; FLOAT .ftiC C600, 12043 FSD floating point 



J 9 

F & floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode 



U 0245, 09O1,003D.0181,F800.0883,0944 



U 0255. F001,C03F.01F0,F847. 0030, 0300 



U 02C1, 0901,003D,0181,F800.0883,0944 

U 02D1, 0O23,123C, 02CO,F800,0000,016E 

U 016E, 081 D, 0014, 01 80, F 800. 0000, 0255 

U 016F, 0810,0000, 0180. F800,0000, 0255 



12105 
12106 
12107 
12108 
12109 
12110 
12111 
12112 
12113 
12114 
12115 
12116 
12117 
12118 
12119 
12120 
12121 
12122 
12123 
12124 
12125 
12126 
12127 
12128 
12129 
12130 
12131 
12132 
12133 
12134 
12135 
12136 
12137 
12138 
12139 
12140 
12141 
12142 
12143 
12144 
12145 



: CVTF8, CVTFU, CVTFL. CVTRFL 
TOC " F ft floating point 



CVTFB/U/L (48/49/4A) 

.-ENTER AT B.FORK WITH SRC IN D. 



Fiche 2 Frame J9 Sequence 319 

PCS 01, FPLA OE, WCS124 Page 318 



CVTFB, CVTFU, CVTFL. CVTRFL' 
SRC.RF, DST.WX 



245: 
CVTF8: 



D D(FRAC), 

St D(EXP).SS ALU15, 

CHR.FLT.OPR," 

CALL.J/CVTFI.O 



255: ; 

CVTFX.W:ALU D, N AMX.Z TST, 

DT/TNST.BEP, WRITE. DEST 



UNPACK FLOATING 
GET EXP, SIGN 
CHECK FOR -0 



SET COND CODES 
WRITE RESULT 



*********************************************** 

* Patch no. 015, PCS 0255 trapped to WCS 1152 * 

*********************************************** 



CVTRFL (48) 
; ENTER AT B.FORK WITH SRC IN D. 

2C1: 
CVTRFL: 



D D(FRAC), 

St D(EXP),SS.ALU15, 

CHK.FLT.OPR, 

CALL,J/CVTFI.O 



2D1 



ALU 0(A), Q ALU.LEFT, 
SI/5IV, SS?" 



=1110 ;0- 



D_D+Q, J/CVTFX.U 



= ;END 



;1 

D.D-Q, J/CVTFX.W 



SRC.RF, DST.WX 



SAVE INPUT, UNPACK FLOATING 
GET EXP, SIGN 
CHECK FOR -0 



RETURN FOR CVTRFL 

MOVE ROUND BIT FROM Q31 TO Q00 

WITH Q<31-1>=0 ; TEST SIGN 



ROUND POSITIVE NUMBERS UP 
ROUND NEGATIVE NUMBERS DOWN 



U 0243, 0010.0039.01 CO, F 900 .0000, 0680 



U 0253, F001,C03F.01FO,F847.0030.0300 



ZZ-ES0AA-124.0 ; FLOAT .MIC [600,12043 
; P1W1 24. MCR 600.1204] 
; FLOAT .MIC [600.1204] 



K 9 



„ . Fiche 2 Frame K9 Sequence 320 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 319 

F & D floating point : CVTDB. CVTDW, CVTDL, CVTRDL 



F KD floating poin14-Jan-82 
T5?30:16 



12146 
12147 
12148 
12149 
12150 
12151 
12152 
12153 
12154 
12155 
12156 
12157 
12158 
12159 
12160 
12161 



.TOC 



F ft D floating point : CVTDB, CVTDU, CVTDL, CVTRDL' 



;CVTD8/U/L (68/69/6A) SRC.RD, DST.WX 
;ENTER AT B.FORK WITH SRC IN <RC 0, 0>. 
243: 



CVTDB: 



253: 



Q RCCT03, 
CAlL,J/CVTDI 



ALU D, N AMX.Z TST, 
DT/TNST.PEP, WRITE. DEST 



GET SRC <H> 

CALL CVT DOUBLE TO INTEGER SUBRT 



SET CONDITION CODES 
WRITE RESULT 



*********************************************** 

* Patch no. 015, PCS 0253 trapped to WCS 1152 * 

*********************************************** 



U 02C5, 0010,0039,01 C0,F 900, 0000, 0680 
U 02D5, 0023, 123C,02C0,F 800, 0000, 041 E 



L 9 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600,1204J 

; P1W124.MCR 600,12043 

; FLOAT .MIC [600, 12043 F & D floating point : CVTD8, CVTDU, CVTDL, CVTRDL 



F ft D floating poinl4-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 



Fiche 2 Frame L9 



Sequence 321 



Page 320 



U 041E, 081D, 0014, 0180, F800,001O.092E 

U 041 F, 081D,0000,0380,F800,0010,092E 

U 092E, 001D, 0120, 01 CO, F800, 0000,0472 
U 0472, 0000, 0D3C, 0180, F800,0000, 0473 

U 0473, F001,003F,01FO,F847,0030,0300 



U 0477, 0000,003C, 0180, F800, 0020,0473 



12162 ;CVTRDL (68) SRC.RD, DST.WX 

12163 :ENTER AT B.FORK WITH SPC IN <RC 0, D>. 

12164 2C5: 

12165 CVTRDL: ; 

12166 Q RCCT03, 

12167 CAU.J/CVTDI 
12168 

12169 2D5: ; 

12170 ALU OCA), Q ALU.LEFT, 

12171 SI/&IV, SS?" 
12172 

1217? =1110 

121 "4 CVTRDL. 0: 

1 21 ?5 ; 

121/6 D D+Q, Q Q. RIGHT, 

12177 Sl/ZERO, CLK.UBCC, 

12178 J/CVT.WL.1 
12179 

12180 ;1 

12181 D D-C, Q Q. RIGHT, 
1218? Sl/MUL-,~CLK.UBCC 
12183 =;END 
121«4 CVTRDL. 1: 

12186 Q D.XOR.Q, Z? 

12187 

12188 =010 ;0~ 

12189 Q31? 
12190 

12191 =011 ; 01 

12192 CVTRDL. 2: 

12193 ALU D, N AMX.Z TST, 

12194 DT/CONG, WRITE. DEST 
12195 

12196 • *********************************************** 

12197 ; * Patch no. 015, PCS 0473 trapped to WCS 1152 * 

12198 * *********************************************** 
12199 

12200 =111 ;11 ; 

12201 SET.V, J/CVTRDL.2 ; SIGNS UNLIKE AND RESULT. NE.O MEANS OVFLO 

12202 =;END 



GET SRC <H> 

CALL CVT DOUBLE TO INTEGER SUBRT 



ISOLATE ROUND BIT IN QOO 
AL BY ITSELF ; TEST SIGN 



ROUND POSITIVE NUMBERS UP, SET 
= 



ROUND NEGATIVE NUMBERS DOWN, SET 
Q = 80000000 



COMPARE INPUT VS RESULT SIGN 

CONSTRAINT FOR Z AND Q31 

CHEl,< IF INPUT AND RESULT SIGNS ARE EQUAL 



SET CONDITION CODES FROM RESULT 
AND GO WRITE IT 



m 9 

ZZ-ESOAA-124.0 ; FLOAT .MIC C600J20A3 F ft D floating poin14-Jan-82 Fiche 2 Frame M9 Seguence 322 

; P1W124.MCR 600-120A] MICR02 1L(03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 

; FLOAT .MIC C600.12043 F ft D floating point : CONVERT FLOATING TO INTEGER 



321 



12203 
12204 
12205 
12206 
12207 
12208 
12209 
12210 
12211 
12212 
12213 
12214 
12215 
12216 
12217 
12218 
12219 
12220 
12221 
1222? 
12223 
12224 
12225 
12226 
12227 
12223 
12229 
1223C 



.TOC " F ft floating point : CONVERT FLOATING TO INTEGER" 

GENERAL UTILITY ROUTINES FOR FLOATING-TO-INTEGER CONVERSION. 
USED BY CVTFX, CVTDX, CVTRFL, CVTRDL, EMODF, EMODD INSTRUCTIONS. 

ENTRY POINTS: 

CVTFX, CVTRFL ENTER AT CVTFI.O WITH D=UNPACKED MANTISSA, 

SC = EXPONENT, SS ' SIGN OF THE NUMBER TO CONVERT. RESERVED OPERAND 

CHECK MUST HAVE ALREADY BEEN PERFORMED. 

EMODF ENTERS AT CVTFI.1 WITH THE SAME PARAMETERS, EXCEPT THAT 

THE OPERATIONS PERFORMED IN CVTFI.O HAVE ALREADY BEEN DONE; 

THIS IS TO AVOID LOSS OF PRECISION IN THE 32-BIT PRODUCT. 

CVTDX, CVTRDL ENTER AT CVTDI WITH PACKED DOUBLE PRECISION NUMBER 

IN <RC — Q , D>; 

EMODD ENTERS AT CVTFI.1 WITH LOW FRACTION IN Q 

EXIT CONDITIONS OF THIS ROUTINE: 

EXIT IS VIA RETURN10 WITH D = INTEGER PARI OF NUMBER (SIGNED), 
031 = ROUND BIT (UNSIGNED), <RCCT1J,RCCT23> = MANTISSA OF 
ORIGINAL F.P NUMBER IN NORMALIZED FORM (IF INTEGER OVERFLOWS, 
THIS MANTISSA MAY BE SHIFTED LEFT 32 BITS OR MAY BE 0), 
SC = AMOUNT TO SHIFT <RCCT13,RCCT23> LEFT BY TO YIELD 
THE FRACTIONAL PART OF THE NUMBER, SS = SIGN OF INPUT NUMBER. 
THE CONDITION CODES N,Z, AND C ARE 0, 1 AND RESPECTIVELY 
AND V INDICATES WHETHER AN OVERFLOW HAS BEEN DETECTED 
(OVERFLOW DETECTION IS DONE IN INSTRUCTION'S DATA TYPE) 



N 9 



ZZ-ESOAA-124.0 ; FLOAT .MIC t600,1204j F & D floating poin14-Jan-82 Fiche 2 Frame N9 

; P1U124.MCR 600,12043_ MICR02 1L(03) 14-Jan-82 T5:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 



Sequence 323 



• FLOAT ImIC [600,12043 



F fc D floating point : CONVERT FLOATING TO INTEGER 



Page 322 



U 0944. 0503,003C,41FC,F988,01D4,A946 
U 0946. 0001.343C.75F8.F990.0084.A4D4 

U 04D4. 0F01 . 003t. 01 E0.F988, 0081 .0010 
U 04D5, 0FO1 , 003E. 01 F8.F988. 0081 .0010 
U 04D6. OD01.123C.01EO.F988.0000.046E 
U 04D7, 0010.0038,01 CO, F910. 0000.0952 

U 0952, ODC8,9430,01CO,F800,0100.04A6 

U 04A6. 0019,2020, 45F8,K910, 01 10,0956 
U 04A7, 081 0,0038, OIF 8, F?38, 0020, 0946 

U 0956, 001 0,01 38, 75 CO, F 988, 0084 ,A504 
U 0504, 0003,123C,0180,F9<?0,0020,046E 

U 0505, 0003,123c, 0180, r9<>0, 0000, 046E 



RCCT13J), DO, Q.O, 
SC.FE. RETURN10 



12231 CVTFI.O 
12232 

12233 RCCT13 0, N*Z.ALU.V*C J), Q 0. 

12234 D D.LEFT, " "* 

12235 S0.SS, SC.SCHCC.803, FE EALU 

12236 CVTFI.1: 

12238 RCCT23 Q, Q 0, 

12239 SC.SC-RC.20L SC? 
12240 

12241 =100 

12242 CVTFI.2: 

1 2243 ; 00 

12244 Q D, RCCT13 D, D 0, 

12245 St FE, RETURN10 
12246 
12247 
12248 
12249 
12250 
12251 
12252 
12253 
12254 
12255 
12256 
12257 
12258 
12259 
12260 
12261 
12262 
12263 

12264 =110 
12265 
12266 
12267 
12268 
12269 
12270 
12271 
12272 
12273 

12274 CVTFI.3: 

1 2275 

12276 RCCT13 LC, Q LC, SC SC-KC.203, 

12277 11 
1227% =0 

12279 ;0 ,-BRANCH ON Z (NUM = 2**31) 

12280 RCCT2j_0, SET.V, SS?, J/CVTFI.4 ; NO - OVERFLOW - COMPLETE THE LEFT 

12281 ; SHIFT AND CHECK SIGN FO.l NEGATION 
12282 

1 228? ; 1 ; 

1228^ RLCT23J). SS?, J/CVTFI.4 ; YES - NO OVERFLOW - COMPLETE THE LEFT 

12285 ; SHIFT AND TEST FOR NEGATION 



RCCT1J D, QD, D.DAL. SC. 
SS?, J7CVTFT.4 



;11 

Q_RCCT23 



EALU SC, FE EALU, 

Q D.OXTCBYTE3.0R.PACK,FP, 

D"DAL.SC, SC? 



; 

ALU Q.XOR.Kt. 80003, CLK.UBCC, 
LC.RCCT23, GO, 
FE SC, J/CVTFl.3 



;1 

RCCT.3 LC, D LC, Q 0, 
SET.V, J/CVTFl.1 " 



CLEAR MANTISSA HOLDER, SET Z 

CHANGE FRAC FROM UNPACKED TO NRMLIZED 

STRIP BIAS FROM EXP 

EMODF ENTERS HERE 

RC2 <- MANTISSA<L>, CLrt Q fOR RT SHIFT 

TURN EXP INTO SHIFT CT AND TEST RANGE 

BRANCH ON SC (RANGE Or /NUM/) 

CCVTtI STUFF ENTERS HERE3 
•5<=/NUM/<1.0 - SAVE HI MANTISSA, 
INT = 0, ROUND BIT = ', EXIT. 



/NUM/<.5 - SAVE HI MANTISSA, 
INT=0, ROUND=0, EXIT WITH SC<0. 



1<=/NUM/<2**31 - SAVE HI MANTISSA, 
D=INT, SET UP TO GET ROUND BIT, 
SEE IF WE SHOULD NEGATE INT. 



/NUM/=>2**31 - RESTORE Q fCH LEFT SHFT 



FORM MAGIC # TO 

CHECK SPECIAL CASE (NUM=-2**31 ) , 

SHIFT D AS IF SC<32 Z TEST IF TRUE 

BRANCH ON SC (/NUM/ => 2**63) 

2**31<=/NUM/<2**63 - SEE IF 
NUM=-2**31 (ONLY NON-OVERFLOW CASE) 
DECREMENT SAVED SC BY 32 



/.*JM/>=2**63 - SHIFT MANTISSA LEFT 32 
.OOP UNTIL NUMBER IS SHIF TABLE 



CONTINUATION OF /NUM/=>2**31 CASE 
SHIFT MANTISSA LEFT 32 & ADJUST EXP 
CHECK FOR NUM=-2**31 



ZZ-ESOAA-124.0 ; FLOAT .MIC C60OJ2OA3 

; P1W124.MCR 600.12043 

; FLOAT .MIC C600,1204] F I D floating point 



B 10 

F t D floating poinK-Jan-82 
MICR02 1L(03) H-Jan-82 15:30:16 VAX11 '780 Microcode 



CONVERT FLOATING TO INTEGER 



Fiche 2 Frame B10 Sequence 324 

PCS 01, FPLA OE, WCS124 Page 323 



U 046E, 0D02,C03C.01E0,F998,0000,095E 

U 046F, 0D1F.2000.01C0,F800.0000,095A 

U 095A, 0002. E03C, 0180. F998,00C0,095E 

U 095E, 0C11, 2020, 01E0.F918. 0091 ,096C 

U 096C, 0000,013C, 0180. F800,0000, 0544 

U 0544, 0000,003E, 0180, F800. 0020. 0010 

U 0545, 0000, 003E, 01 80. F 800, 0000, 0010 



12286 
12287 
12288 
12289 
12290 
12291 
12292 
12293 
12294 
1^295 
1 2296 
12297 
12298 
12299 
12300 
12301 
12302 
12303 
12304 
12305 
12306 
12307 
12308 
12309 
12310 
12311 
12312 
12313 
12314 
12315 



FLOW CONVERGES H€RE WTH D - LOW 32 BITS OF INTEGER, 
= MANTISSA WORD CONTAINING ROUND BIT, SC=NUMBER OF PUCES 
TO SHIFT (RIGHT) TO PUT ROUND BIT IN D31, V SET IF OVERFLOW, 
<RCCT13,RCCT23> CONTAINING MANTISSA SUCH THAT Q=RCCT13. 
WHAT WE HAVE TO DO IS GET THE ROUND BIT AND CHECK FOR 
DATA-TYPE OVERFLOW OF THE INTEGER. 



=1110 
CVTFI.4: 



BRANCH ON SS (ORIGINAL NUMBER NEGATIVE) 



RCCT33 D.SXTCINST.DEPJ, 

Q.B, D.DAL. SC, J/CVTFI.5 

QJH>, D.DAL. SC 

RCCT33_Q.SXTCINST.DEPJ 



CVTFI.5: 

LC.RCCT33, ALU _Q.XOR.LC, 

CLK.UBCC, 5.Q, Q.D, SC.FE 

Z? 

=0 ;8RANCH ON Z (NO OVERFLOW) 

SET.V, RETURN10 

. ! 

RETURN10 



CONVERT LONGWORD TO TARGET D.T. 
SAVE INT AND GET ROUND BIT 

NEGATE I SAVE INT, GET ROUND BIT 

CONVERT LONGWORD TO TARGET D.T. 



CHECK FOR D.T. OVERFLOW 
D<-INT, Q-C-ROUND, SC<-* BITS 

CHECK FOR OVERFLOW (WHADDA WASTE) 



OVERFLOW - RETURN WITH V=1 

NO OVERFLOW (HOWEVER V STILL MAY BE 1) 



C 10 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600. 1200 f ft D floating poin14-Jan-82 Fiche 2 Frame C10 Seguence 325 
Pi Wl 24. MCR 600,1204] MICR02 1L<03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 Page 
FLOAT .MIC C600. 12043 F & D floating point : CONVERT FLOATING TO INTEGER 



324 



U 0680. 0003.003D.0187.F988.0050.088E 



U 0681. OF03.003E.19F8.F990.0084.6010 



U 0682. 0810. 0038. 41E4.F928.0084.A96E 



U 096E, 053F, 1414. 7478. F990.0084.A4D4 



12316 
12317 
12318 
12319 
12320 
12321 
12322 
12323 
12324 
12325 
12326 
12327 
12328 
12329 
12330 
12331 
12332 
12333 
12334 
12335 
12336 
12337 



=00 
CVTDI 



=;END 



DOUBLE PRECISION ENTRY POINT 



;CALL CONSTRAINT FOR UNPK 

RCCT13 0, N*Z ALU.VfcC.O, 
SS O&SB 0. 
CACL. J7UNPK 

6.0. Q.O. RCCT23.0. SC KCZEROJ, 
RETURN10 



. 1 Q~~— — ——_.——. 

6 RCCT5J, Q D, SD SS, 
SC_SC-Kt.80J 



D.D.LEFT. SI/DIVD, Q 0. 
ALU 0+Q, RCCT2J ALO.LEFT, 
St SC-KL.20J. SC?. 
J/CVTFI.2 



INIT HI FRAC AND COND CODES. 
SET UP FOR UNPACK ROUTINE 
GO UNPACK DOUBLE PREC NUMBER 



NUMBER = - ZERO WORLD 
AND EXIT 

NUM .NE. 
GET UNPACKED MANTISSA IN <D.Q> 
REMOVE BIAS FROM EXP 



NORMALIZE MANTISSA<H> IN D. CLR Q 
SAVE NORMALIZED MANTISSA<L> IN RCCT23 
(PSLCNJ=0 SO NO GARBAGE SHIFTS IN) 
TURN EXP INTO SHIFT CT AND TEST RANGE 



D 10 
ZZ-ES0AA-124.0 ; FLOAT .MIC [600.1204!} F ft floating poin14-Jan-82 Fiche 2 Frame 010 Seguence 326 
; P1W124.MCR 600-12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/7S0 Microcode : PCS 01, FPLA OE, WCS124 Page 
; FLOAT .MIC [600,12043 F & D floating point : ACfi c 



325 



U 03C5. 0901 .0O3C. 1981, FAF8.1497.64A4 

U 04A4, 0001, 203D,C980,3D98, 0800, 037E 
U 0484, 0000,003C,0580,F800, 1404, 6486 



U 04B6, 7901, 0B3D, 01 F 5, F 985, 091 8, 6698 



U 05B6, 000D, 1720, 1981, FA78, 0084, 6598 



U 05BE, 0806. D438, 01 80, F 800, 0070, 0691 



U 05BF, 0600,003C, 0180. F800, 0080, C58E 



12338 
12339 
12340 
12341 
12342 
12343 
12344 
12345 
12346 
12347 
12348 
12349 
12350 
12351 
12352 
12353 
12354 
12355 
12356 
12357 
12358 
12359 
12360 
12361 
12362 
12363 
12364 
12365 
12366 
12367 
12368 
12369 
12370 
12371 
12372 
\Zh7Z 
12374 
12375 
12376 
\ZS77 
12378 
12379 
12380 
12381 



.TOC " F & floating point : ACBF" 
;6ET HERE WITH LIMIT OPERAND IN Q, ADDEND IN D 



3C5: 
ACBF: 



RCR153 D, 

D DCFRJO.SC D(EXP), 

S5 ALU1 5, " 

STATE.KCZER03.CLK.UBCC 



=0***001 00; 

RCCT33 Q, 
CHK.FLT.OPR, 
IDCT23 D, 
CALL.J7SPEC 



=0***101 00; 

STATE.KC.13 

=0***10110; 

RCCT03 D, 

D D(FR*C),FE D(EXP), 

CHK.FLT.OPR, rLK.UBCC. 

SS SS. X0R.ALU15&SD ALU15, 

Q IB.8DEST,PC PC+2, 

CAU..IB.TEST7.J/AC8F.3 

ALU D.X0R.RCR153.SS ALU15, 
SC RCZER03, 
SrtTE0?,J/AC8F.5 



SAVE ADDEND (SRC) 
UNPACK ADDEND 
SETUP SRC SIGN FLAG 
CLEAR STATE AND EALU CC 

CALL SITE FOR GETTING INDEX 

SAVE LIMIT 

PROTECT AGAINST RESERVED OPERAND 

SAVE ADDEND FRAC WHILE GETTING BDEST 

GO GET INDEX OPERAND 

RETURN HERE WITH MEMORY OPERAND 
FLAG INDEX AS MEMORY OPERAND 

RETURN HERE WITH REGISTER OPERAND 

SAVE INDEX (DST) OPERAND 

UNPACK INDEX OPERAND 

CHECK RESERVED OPERAND 

SETU" OP SELECT AND DEST SIGN 

GET jRANCH DISPLACEMENT FROM IB 



RETURN HERE IF ADD UNNECESSARY 

SET SS TO DIFF OF INDEX & ADDEND SIGNS 

CLEAR OVERFLOW FLAG 

TEST WHERE TO STORE INDEX 



*********************************************** 

* Patch no. 009, PCS 0586 trapped to WCS 1149 * 

************ ******* ************ ***************** 



=1 ***1 1 110; 

ACBF. 2: EALU SC.D PACK. FP, 
SET.CCUN5T), 
SC?,J/AC8F.4 



=1 ***1 1111 ; 

D D. RIGHT, 

SZ SC+1J/ACBF.2 



-.•NORMAL COMPLETION OF FLOATING ADD 
;REBU!LD FLOATING RESULT 
.SET CONDITION CODES ON IT 
;GO TEST FOR OVER/UNDERFLOW 

-.•ROUNDING CAUSED DENORMALIZATION 
.•RESTORE NORMALIZATION OF FRACTION 
;GO PACK UP RESULT 



E 10 
ZZ-ESOAA-124.0 ; FLOAT .MIC 1*600.12043 F & D floating poin14-Jan-82 Fiche 2 Frame E10 Seguence 327 
; P1U1 24. MCR 600.12043 MICR02 1L(03) H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 
; FLOAT .MIC [600. 12043 F t D floating point : ACBF 



326 



U 0698. 0000.003D.0180.F800.0000.0E6E 
U 0699. 0000. 003D.01 80. F800, 0000. 0880 

U 069A. 7000. 0B3C. 01 F0.F800. 0000.0698 



U 0698. D015.3214.C9F0.2DB8.009C.E689 



U 0689, D000.003C.0180.FA78.0800.0972 



U 0688. D000.123C.C580.3C00.0000.05A2 



U 0680. DF00.003E. 0180, FA78. 0800, 0100 



U 068F, D800.003E, 0180, FA78, 0000, 0100 



U 0972, 0810,003A,0180,F900, 0000. 0100 



12382 ;HERE IN AC8 FLOATING, TO GET THE BRANCH DESTINATION AND BEGIN THE ADD 
12383 

12384 =00 

12385 ACBF. 3: CALL.J/IB.TBR 
12386 



•;TB MISS 
;T8 REFILL REQUIRED 



CALL, J/IB. ERR 



12387 

12388 

12389 

12390 

12391 

12392 

12393 

12394 

12395 

12396 

12397 

12398 

12399 

12400 

12401 =;END OF CONSTRAINT FOR 18. TEST 

12402 

12403 =1001 



Q I8.8DEST, 
IB.TEST?,J/ACBF.3 



RCCT73_Q+PC, 

CLR.IB.SPEC, 

Q IDCT23, 

SC NA8S(SC-FE),CLK.UBCC, 

EACU? 



12404 
12405 
12406 
12407 
12408 
12409 
12410 
12411 
12412 
12413 
12414 
12415 
12416 
12417 
12418 
12419 
12420 
12421 
12422 
12423 
12424 
12425 
12426 

12427 AC8F.3A.-D RCCT03, 

12428 RETURN100 



ALU RCR153.CHK.FLT.OPR, 

CLRTI8.SPEC, 

J/AC8F.3A 



IDCT13 D, 

CLR.IB.SPEC, 

EALU?,J/ADDFSH 



DO. 

ACU RCR153.CHK.FLT.OPR, 

CLRTlB.SPEf. 

RETURN! 00 



D RCR153. 
CCR.IB.SPEC, 

RETURN100 

=;END OF CONSTRAINT FOR EXPONENT TEST 



STALL 

TRY AGAIN TO GET BRANCH DISPLACEMENT 

LOOP UNTIL IT COMES 

GOT IT 

SAVE BRANCH DESTINATION 
CLEAR 1ST BYTE OF BDEST 
GET BACK ADDEND FRACTION 
CALCULATE EXPONENT DIFFERENCE 
CHECK EXPONENTS FOR ZERO 



EALU Z=0, SC.EQL.O 

ADDEND EXP IS ZERO. RESERVED OPERAND? 
CLEAR 2ND BYTE OF BDEST 
IF NOT, RETURN INDEX AS SUM 

EALU Z=0, SC.NEQ.O 
SAVE INDEX FRACTION, 
CLEAR 2ND BYTE OF BDEST 
GO ADD FLOATING 

EALU Z=1, SC.EQL.O 
BOTH ZERO. SUM IS ZERO 
BEWARE RESERVED OPERAND 
CLEAR 2ND BYTE OF BDEST 



EALU Z=1, SC.NEQ.O 

INDEX IS ZERO, RETURN ADDEND AS SUM 

CLEAR 2ND BYTE OF BDEST 



.-ADDEND IS ZERO, RETURN INDEX UNCHANGED 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,1204} 

; P1W124.MCR 600-1 20AD 

; FLOAT .MIC [600,120*:) F & D floating point : ACBF 



F 10 



F tD floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



Fiche 2 Frame F10 Sequence 328 

VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 327 



U 0691. 0818, C039, 1980, F800,00F4,6E09 

U 0693, C00D, 1720, 1981, FA78. 0084, 6598 

U 0695. 0818. C039, 1980, F800.00F4.6E09 

U 0697, 0818.C039.4580.F800.0070.0E03 

U 069F. 0000. 173C. 01 81. FA78. 0000. 0598 



U 0598. 0001. 1A3C,05E0,F8D8.1 404, 659D 



U 0599, 0000, DA3C05E0, 3000. 1404, 659D 



12429 ;HERE IN ACBF, TO CHECK FOR UNDER/OVERFLOW OF EXPONENT 
12430 

12431 =0001 ;0001 ;SC.EQL.O 

12432 ACBF. 4: D JCCZEROD-SET.CCUNST), ; RE TURN ZERO ON UNDERFLOW 

12433 St KCZEROJ, ; CLEAR OVERFLOW FUG 

12434 CACL.J/UNDRFL 
12435 

12436 FL.PA.9:;0011 ;1 .LEQ.SC.LEQ.FF 

12437 ALU D.X0R.RCR15J,SSJ\LU15, ;DIFF OF ADDEND £ INDEX SIGNS TO SS 

12438 SC £L7ER03, ; CLEAR OVERFLOW FLAG 

12439 ST*TE0?,J/ACBF.5 .-WHERE IS RESULT STORED? 
12440 
12441 
12442 
12443 
12444 
12445 
12446 
12447 
12448 
12449 

12450 =1111 
12451 
12452 
12453 

12454 =;END OF CONSTRAINT FOR OVER/UNDERFLOW TEST 
12455 



; 01 01 ; SC . LSS . 

D KCZER03,SET.CC(INST), .-RETURN ZERO ON UNDERFLOW 
St XCZEROJ, ; CLEAR OVERFLOW FLAG 

CACL,J/UNDRFL 

;0111 .-SC.GTR.FF 

D KC. 80003. SET. CC(INST), .-RETURN RESERVED OP ON OVERFLOW 
CALL,J/OVFL 



ALU RCR15D,SS.ALU15, 
STATEO? 



.-RETURN AFTER OVER/UNDERFLOW 

.-ADDEND SIGN TO SS 



12456 =0 ; 

12457 ACBF. 5: R(PRN) D.L0N6, 

12458 Q D,STA"TE KC.13. 

12459 P5L.V?,J/A"CBF.6 
12460 

1 2461 ; 

12462 CACHE DCINST.DEPJ, 

12463 D, STATE KC.13, 

12464 P5L.V?,J/*CBF.6 



INDEX IS IN REGISTER 

STORE RESULT 

SET "SINGLE" FLAG 



INDEX IN MEMORY 

STORE IT 

SET "SINGLE" FLAG 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600.1204] 



; P1W124.MCR 600.12CK3 
; FLOAT .MIC C600, 12043 



F t D floating poin14-Jan-82 
14-Jan-82 T5: " 
F & D floating point : ACBF 



MICR02 1L(03) 



6 10 

Fiche 2 Frame 610 Seguence 529 

30:16 VAX1 1/780 Microcode : PCS 01. FPLA 0E, WCS124 Page 328 



U 0590, 0811, 6020,0584. F918, 0114,6974 



U 059F, C000.003C, 01 80.F804, 4000. 0062 

U 0974. 081F,5B20,0180,F800,0000,06A3 
U 06A3, 00 , D,2020.018C,F800,0010,06A7 



U 06A7, 0O11,2320,D9F3,2C00,OO10,66B0 

U 06AB, COOO,123C,0180,F804,4000,05A4 

U 05A4, F80C, 0038, 01F1,F857,1398, 6000 

U 05A5, 201 0.0038, 01 80. F 939, 4200. 00AB 



12465 ;HERE FOR ACBF OR ACBO AFTER STORING UPDATED INDEX. 
12466 



*********************************************** 

* Patch no. 001, PCS 059D trapped to WCS 1140 * 

*********************************************** 



12467 =1101 

12468 AC8F.6: D Q.XOR.RCCT33, 

12469 WORD.CLK.UBCC. 

12470 SD.SS, 

12471 FE'KC.ID, 

12472 J/XBF.6A 
12473 
12474 
12475 
12476 
12477 
12478 
12479 
12480 
12481 

12482 AC8F.6A:D D.OXTCWORDU.XOR.Q, 
12483 
12484 

12485 =0011 
12486 
12487 
12488 
12489 
12490 
12491 
12492 
12493 
12494 
12495 
12496 
12497 
12498 

12499 =;END OF ALU NfcZ CONSTRAINT 
12500 

12501 =0 ; 

12502 ACBF. 7: IRD 
12503 

1 2504 

12505 PCfcVA 3CCT7;), FLUSH. IB, J/JB.FILL 



PSL.V =0 

GET DIFFERENCE BETWEEN INDEX AND LIMIT 
TESTING ONLY SIGN, EXP t AND MSB'S 
COPY XOR OF ADDEND & INDEX SIGNS TO SD 
CLEAR EALU CCS 



CLR.I8.0PCPC.PC+1 ,J/IRD 

;DD.( 

aCu? 
alu.q.xor.d,clk.ubcc 



ALU 0. XOR. LC, LONG, CLK.UBCC, 

EALO FE, 

SD NOT.SD, 

Q IDCT6J, 

C31?,J/ACBF.8 



CLR.IB.OPCPC PC+1, 
EALU? 



PSL.V =1 

DO NOT BRANCH 



NOW D<31:16>=INDEX, D<15:0>=LIMIT<15:0> 
TEST DIFFERENCE <15:0> 

ALU NfcZ=0 (SIGNS SAME, MAGN DIFFER) 
COMPARE INDEX MAGNITUDE TO LIMIT 

ALU Z=1 (BITS 15:0 EQUAL) 

SET Z IF EQUAL IN 32 BITS 

KEEP EALU CC CLEAR 

SD=1 IFF ADDEND SIGN = INDEX SIGN 

GET LIMIT<L> IN CASE ACBD 

TEST MAGNITUDE COMPARE 

ALU N=1 (SIGNS DIFFER) 

TEST ADDEND SIGN .XOR. INDEX SIGN 



;SS =0 DO NOT BRANCH 
•;SS =1 BRANCH 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,1204: 

; P1W124.MCR 600.1 2043 

; FLOAT .MIC [600,12041 FRO floating point : ACBF 



H 10 



F tD floating poin14-Jan-82 
MICR02 1L(03) H-Jan-82 15:30:16 



Fiche 2 Frame H10 



Seguence 330 
VAX1 1/780 Microcode : PCS 01. FPLA 0E, WCS124 Page 329 



U 06B0, 0811,6120,0182,F908,0010,66B2 

U 06B2. COO0,123C.O180,F804,4000,05A4 

U 0633, 081 F, 5720,0180. F800, 0000, 05A8 

U 05A8, 001D,3B20.0183,F800,0010,66BA 

U 05A9, 2010, 0038, 0180, F939.4200,00AB 

U 06BA, 0000,033C.0180,F800,0000,06BO 

U 069B, 0000,033C,0180,F800,0000,0630 

U 063E, 0OO0,003C,0182,F800,0000,069F 

U 068F, C000.123C. 0180, F804, 4000, 05A4 



12506 ;HERE IN ACBF/D FOR COMPARE OF INDEX TO LIMIT, 

12507 ; WHEN BITS <15:0> OF INDEX AND LIMIT ARE EQUAL. 
12508 

12509 =00 ; ;ALU C=0 (INDEX .LEO. LIMIT) 

12510 AC8F.8: SS_SD, _ _ ;6ET SS= ADDEND SIGN. EQV. INDEX SIGN 



12511 

12512 

12513 

12514 

12515 =10 

12516 

12517 

12518 

12519 =11 

12520 

12521 

12522 

12523 =0 

12524 

12525 

12526 

12527 

12528 

12529 

12530 

12531 

12532 

12533 =1010 



D B.X0R.RC[T13, 
WORD.CLK.UBCCEALU FE. 
Z? 



.•COMPARE LIMIT<L> TO INDEX<L> 
;1F EQUAL, ALWAYS BRANCH 



CLR.I8.0PC.PC POL 
EALU?,J/ACBF.7 



D D.0XT[WORD3.XOR.Q, 
STATEO? 



-;Z=1 C'NDEX .EQL. LIMIT) 
;D<31:16>=LIMIT, D<15:0>=INDEX 
.-HAVE WE COMPARED FULL OPERANDS? 



.STATE 0=0. MUST COMPARE LOW OF DOUBLE 

ALU Q.XOR.D.CLK. UBCC, LONG, .COMPARE LIMIT<47:32> WITH INDEX 

EALO FE, .KEEP EALU CCS CLEAR 

SD NDT.SD, ;SD= ADDEND SIGN.XOR.INDEX SIGN 

AL0?,J/ACBF.10 

. ;STATE 0=1. INDEX .EQL. LIMIT 

PCSVA_RC[T73. FLUSH. IB, J/IB. FILL .'BRANCH 

;LIMIT<47:32> .NEQ. INDEX<47:32> 



12534 ACBF.10:C31?.J/ACBF.8 
12535 

12536 ; 

12537 C31?,J/ACBF.8 
12538 
12539 

12540 SS SD 
12541 

1 2542 ; 

12543 CLR.IB.OPC.PC PC+1, 

12544 EALU?,J/ACBF.7 



;ALU z =0 



•;ALU Z =1, C31 =0 (LIMIT. LSS. INDEX) 
.•INVERT BRANCH SENSE YET AGAIN 

■;ALU Z =1, C31 =1 (LIMIT. GTR. INDEX) 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600. 12043 

; P1W124.MCR 600.12043 

; FLOAT .MIC C600, 12043 F & D floating point : ACBD 



I 10 



F I D floating poinU-Jan-82 
MICR02 1L(03) H-Jan-82 15:30:16 



Sequence 331 
VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 330 



U 0384. OH F. 2038. 0180. F9B0. 1498, 6975 

U 0975, 0810. 0038.D980.3D00.4000. 0050 

U 0050. 0010.0E39.D581.3D08.0000.047E 

U 0070, 00O0,003C,DD80,3C00,0OO0.0978 

U 0071, 0001 ,003C. 0180. F980. 0000, 0976 

U 0976, 0800, 123C, 01 80, F 860, 0000, 0084 

U 0978, 0000, C03C, 6580, 5800.1 404. 697A 

U 097A. 0001,003C.0180,F983,0000,097C 

U 097C, 0000. 123C, 01 80. 4000. 0000. 0084 



Fiche 2 Frame 110 
ocode : I 

F ft floating point : AC8D 



12545 .TOC 
12546 

12547 .-HERE WITH LIMIT<H> IN RCCT03, LIMIT<L> IN Q, 

12548 ; ADDEND<H> IN RCCT13, AND AD0END<L> IN D 
12549 

12550 384: ; 

12551 ACBD: RCCT63 0(B), 

12552 Q, * 

12553 St 0(A),CLK.UBCC, 

12554 ST*TE 0(A) 
12555 

12557 iDCT6T"DT~"~"~~~ 

12558 D RCCT03, 

12559 iflTRPT. STROBE 
12560 

1 2561 =1 0****0; 

12562 IDCT53 D, 

12563 ALU RCD13,SS ALU15, 

12564 CALl\lNTERRUPT.REQ?,J/ASPC 
12565 

12566 =11****0; 

12567 IDCT7J D, 

12568 J/AC8DT2 
12569 

12570 =11****1; 

12571 RCCT03 
12572 

12573 ; 

12574 D R(PRN*1), 

12575 E*LU?,J/ACBD.4 
12576 

12577 ;HERE WHEN INDEX IS IN MEMORY. ADDRESS HAS BEEN SAVED IN IDCT73 
12578 

1 2579 ; ; 

12580 ACBD. 2: D CACHE. INST. DEP. ;6ET INDEX<H> 

12581 STATE KC.103 ;SET MEMORY OPERAND FLAG 
12582 

1 2583 ; ; 

12584 RCCT03 D, ;SAVE INDEX<H> WHERE UNPACK WILL FIND IT 

12585 VA VA+5 ;6ET ADDRESS FOR IMDtX<L> 
12586 

1 2587 ; ; 

12588 DCLONG3 CACHE. ;GET INDEX<L> 

12589 EALU7.J7ACBD.4 ;TEST ADDEND SIGN 



SAVE ADDEND<L> FOR UNPACK 
READY TO SAVE LIMIT<L> 
INIT FOR EALU BRANCH 
INIT STATE 



SAVE LIMIT<L> TOO 
READY TO SAVE LIMIT<H> 



CALL SITE FOR GETTING INDEX 

SAVE LIMIT<H> 

GET ADDEND SIGN TO SS 

GO GET INDEX ADDRESS 

RETURN HERE WITH MEMORY OPERAND 
SAVE ADDRESS OF INDEX 
THEN GO GET INDEX 

HERE WITH REGISTER OPERAND 
SAVE INDEX<H> 



GET INDEX<L> 
TEST ADDEND SIGN 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600.12043 



J 10 



P1W124.MCR 600.12043 
FLOAT .MIC C600. 12043 



MICR02 1L(03) 14-Jan-82 
F & D floating point : AC8D 



F i D floating poin14-Jan-82 
15:30:16 



Fiche 2 Frame J10 Seguence 332 
VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 331 



U 0084, 7001 OB3C,01FO,F99C,0000,06CO 

U 0085, 7001 ,083C,75F0,F99C,1 404, 26C0 

U 06C0, 0000, 003D, 0180, F 800, 0000,0664 

U 06C1, 0000,003D.0180,F800, 0000, 0880 

U 06C2, 7000,083C -01 F0,F 800, 0000, 06C0 

U 06C3. D015.2014,65EO,F9B8,0084,62C8 



U 02C8, DD00,003D,8D80,F 800, 0084, 66CA 



U 02C9, 0000. 003C, DDF 0.2D08, 0000, 02CA 
U 02CA, 0000, 163C. 0180, F800. 0000, 06D2 



U 02CB, 0000. 003C,DDFO,2D08, 0000, 02D8 
U 02D8, 0000,163C,0180,F800.0000.06D2 



U 02D9. 0000,003D,01SO,F800,0118,E583 



U 02DB, 0000, 003C, DDF 0.2D08, 0000, 097D 
U 097D, 0000, 163C, 0180. F800, 0000, 06D2 



12590 
12591 
12592 
12593 
12594 
1:595 
U596 
12597 
12598 
12599 
12600 
12601 
12602 
12603 
12604 
12605 
12606 
12607 
12608 
12609 
12610 
12611 
12612 
12613 
12614 
12615 
12616 
12617 
12618 
12619 
12620 
12621 
12622 
12623 
12624 
12625 
12626 
12627 
12628 
12629 
12630 
12631 
12632 
12633 
12634 
12635 
12636 
12637 
12638 
12639 
12640 
12641 
12642 
12643 
12644 



.•HERE IN ACBD WITH INDEX<L> IN D, BRANCHING ON ADDEND SIGN 



=1*0 

ACBD. 4: RCCT33 D, 

Q IB.B0EST,PC PC+1, 
IB.TEST?,J/ACSD.5 



STATE STATE. OR.KC. 203, 

RCCT3J D, 

Q IB.B5EST.PC PC+1, 

i§.te;t?,j/acBd.5 



=00 
ACBD. 5: 



CALL.J/IB.TBM 
CALL, J/IB. ERR 
Q_I8.BDEST,IB.TEST?,J/AC8D.5 



RCCT73 Q+PC, 

CLR.I8.SPEC, 

QJ>, 

St KC.103 



SS =0 (ADDEND IS POSITIVE) 
SAVE INDEX<L> FOR UNPACK ROUTINE 
GET BRANCH DISPLACEMENT 
UAIT UNTIL IT ARRIVES 

SS =1 (ADDEND IS NEGATIVE) 

REMEMBER THAT 

SAVE INDEX<L> FOR UNPACK ROUTINE 

GET BRANCH DISPLACEMENT 

WAIT UNTIL IT ARRIVES 



REFILL TB 



SERVE ERROR 

STALL 

UAIT FOR BDEST TO ARRIVE 

GOT IT 

CALCULATE BRANCH ADDRESS 
CLEAR 1ST BYTE OF BDEST 
COPY INDEX<L> FOR SWAP 
SETUP SC FOR SWAP OF HALVES 



*********************************************** 

* Patch no. 003, PCS 06C3 trapped to WCS 1142 * 
*********************************************** 



=0**00 ;— 



D DAL.SC, 

St KC.FFF93, 

CLR\ 18. SPEC, CALL, J/UNPACK 



Q.IDCT73. 
Lt RCCT13 
STA"TE4?,J/ACBD.6 



Q IDCT73, 
IZ RCCT13 
ST*TE4?,J/ACBD.6 



Ffc„MBS(SC-LA(EXP)), 
CLR\UBCC,CALL,J/ADDD.6 



=1**11 



Q IDCT73, 
Lt RCCT13 
STA"TE4?,J/ACBD.6 



CALL SITE FOR UNPACK 
SWAP HALVES OF INDEX<L> 
GET -7 FOR SHIFT 
CLEAR 2ND BYTE OF BDEST 



SRC.EQL. 
GET ADDRESS OF 



.INDEX IF MEMORY 



GET INDEX<L> TO LATCH 

WHERE SHOULD RESULT BE STORED? 

DST.EQL.O 

GET ADDRESS OF INDEX IF MEMORY 

GET INDEX<L> TO LATCH 

WHERE SHOULD RESULT Be STORED? 

NEITHER ZERO 

CALCULATE SHIFT AMOUNT 

NOTE ITS DIRECTION, GO FINISH THE ADD 

RETURN FROM ADDD/PACKD 

GET ADDRESS OF INDEX IF MEMORY 

GET INDEX<L> TO LATCH 

Un£RE SHOULD RESULT BE STORED? 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,12043 

; P1W1 24. MCR 600-12043 

; FLOAT .MIC C600, 12043 F & D floating point 



F t D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



AC60 



K 10 

Fiche 2 Frame K10 Sequence 333 
VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 



332 



U 06D2, 0001.003C.C181.3CD8.G000.0982 
U 06D3. 0001,203C,C180.3C00.0200,097E 
U 097E, 0001. C03C, 0181. 3000.0000.0980 

U 0980. 0810.0038.D5F0.2C03.0000.0981 
U 0981, 0OOO.163C,0180.300O.00O0,04E1 

U 0982, 0010.1638.D5F0.2CE0.0000.04E1 

U 04E1, 0001 .3A3C.C1F0.2D98. 0000, 059D 

U 04E3, 0018, 0038. 4585. F800, 0000, 04E1 




CACHE DCINST.DEP3, 
ALU_D.SS_4LU15 



12645 .-HERE IN ACBD TO STORE INDEX 
12646 

12647 =10 ; 

12648 AC8D.6: R(PRN) D,SS ALU15, 

12649 IDCT03 D, 

12650 J/AC8D.7 
12651 
12652 
12653 
12654 
12655 
12656 
12657 
12658 
12659 
12660 
12661 
12662 
12663 
12664 
12665 
12666 
12667 
12668 

12669 ; 

12670 AC8D.7: R(PRN+1) LC, 

12671 Q IDCT537 

12672 STATE5? 
12673 

12674 =01 ; 

12675 AC80.8: RCCT33 Q, 

12676 Q IDLT03, 

12677 PSL.V?,J/ACBF.6 
12678 

12679 ; 

12680 ALU KC. 80003, 

12681 SS 5S.X0R.ALU15&SD ALU15, 

12682 J/JC8D.8 



VA VA+4, 
D_CC, 

QIDCT53 



CACHE DCLONG3. 
STAGES?, J/ACBD. 8 



STATE 4=0 (INDEX IN REGISTER) 
STORE INDEX<H>, SET SS FROM SIGN 
SAVE INDEX<H> yHILE <L> BEING STORED 
TEST FOR NEGATIVE ADDEND 

STATE 4=1 (INDEX IN MEMORY) 
RELOAD ADDRESS OF INDEX 
SAVE INDEX<H> DURING STORE 



STORE INDEX<H> 

SET SS FROM SIGN OF INDEX 



ADVANCE ADDRESS TO INDEX<L> 
GET INDEX<L^ FROM LATCH 
GET LIMIT<H> rOR COMPARE 



STORE INDEX<L> 



STORE INDEX<L> 

GET LIMIT<H> FOR COMPARE 

TEST FOR NEGATIVE ADDEND 

STATE 5=0. (ADDEND IS POSITIVE) 
PUT LIMIT WHERE ACBf WANTS IT 
GET INDEX TOO 
GO COMPARE THEM 

STATE 5=1. (ADDEND IS NEGATIVE) 

SET ALU15 

COMPLEMENT INDEX SIGN IN SS 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600J2043 F 

P1W124.MCR 600.1204] MICR02 1L(03) 

FLOAT .MIC [600, 12043 F ft D floating poi 

12683 
12684 
12685 
12686 
12687 
12688 
12689 
12690 
12691 
12692 
12693 
12694 
12695 
12696 
12697 
12698 
12699 
12700 
12701 
12702 
12703 
12704 
12705 
12706 
12707 
12708 
12709 
12710 
12711 
12712 
12713 
127H 
12715 
12716 
12717 
12718 
12719 
12720 
12721 
\2722 
1?723 
12724 
12725 
12726 
12727 
12728 
12729 
12730 
12731 
12732 
12733 
12734 
12735 



L 10 

ft D floating poinK-Jan-82 Fiche 2 Frame L10 Sequence 334 

14-Jan-82 15:30:16 VAX11/730 Microcode : PCS 01, FPLA 0E, WCS124 Page 

nt : MULD 



333 



U 1003, 0C01 ,003c, 6580, F980,0084,72C8 



U 12C8, 0D01,OO3D,BD80,F 998, 0084, 66CA 



U 12C9, OF03,003E,65F8.F988,01D6,6010 



U 12CA, OF03,003E,65F8,F988,01D6,6010 



U 12CB, 0601, 173C, 0184, F990, 0081. 12A9 



.TOC 



F ft D floating point - MULD' 



.FFLIST ;Re-enable full listing 
.REGI0N/<WCSR1L>,<WCSR1H>/<WCSR2L>,<WCSR2H> 

DOUBLE FLOATING POINT ARITHMETIC MULD ROUTINE. 

USED BY POL YD AND EM0DD AS WELL AS BY MULD 

THIS ROUTINE MULTIPLIES A 56-BIT 'X>SV BY A 64 BIT 'SRC" 

VO PRODUCE A PRODUCT WITH 63 OR 64 SIGNIFICANT BITS, DEPENDING 

ON THE MAGNITUDE OF THE INPUT FRACTIONS. 

THE "DSV IS IN <RC1,D>; THE "SRC" IN <RC0,Q> 

WHEtf CALLED BY MULD OR Pa YD, THE SRC REALLY HAS ONLY 56 SIGNIFICANT BITS. 

THIS ROUTINE RETURNS 10 IF THE PRODUCT IS ZERO WITH D=Q=RCCT1J=SC=0. 

IF THE PRODUCT IS NON-ZERO AND IT WAS CALLED FROM POLY OR EMOD 

IT RETURNS 12 OR 13 WITH THE UNFORMALIZED PRODUCT IN <D,Q>, DEPENDING 

ON HOW MANY LEADING ZERO BITS ARE IN THE PRODUCT. 

SS AND SD BOTH HAVE THE RESULT SIGN 

IF THE PRODUCT IS NON-ZERO AND IT WAS CALLED FROM MULD IT RETURNS 

THE PACKED RESULT IN <D,RCCT13>. 

OVERFLOW/UNDERFLOW CHECKING IS ONLY DONE ON THE MULD PATH. 



1003: 
MULD. 00: 



.•ASSIGN THIS ADDRESS BECAUSE PCS CALLS IT 



=00 
MULD. 02: 



RCCT63 D, D Q, 
SCJCC.TOJ 

RCCT33 D, D DAL.SC, 
SC KC.TFFW. 
CAL1, J /UNPACK 

RCCT13.0,D_0,0 0, 
SC ALU, FE KC.TOJ, 
Nft7_ALU.Vit_0, RETURN10 

RCCTU.O.D.O.Q 0, 

SC ALU. FE KC.TOJ, 

NftZ ALU.V&Cj), RETURN10 



=;END 



;11 _ 

RCCT2J D, 

D D. RIGHT, SI/ZERO, 

St FE. 

SD'SS, STATE1? 



SAVE DSTO <L>, D GETS SRCO<L> 

SC GETS 16. FOR SWAP WORD OF FRAC <L> 



SAVE SRCO <L>, SWAP WORDS OF SRCCKL> 

SETUP SHIFT /VCRJNT -7 

CALL UNPACK DOUBLE FLOATING PT OPERANDS ROUTINE 

RETURN1, SRC = 0, DST MAY BE 
RESULT IS 

CLR EXP FOR POLYD, SET FE FOR EMODD 
SET CCS, GOTO SET WRITE RESULT READY 

RETURN2, SRC.NE.O, DST = 

RESULT IS 

CLR EXP FOR POLYD, SET FE FOR EMODD 

SET CCS, GOTO SET WRITE RESULT READY 

RETURN3, SRC.NE.O, DST.NE.O 

SAVE DST FRAC <L>, SET AS MULT'CAND*2 

DST FRAC <L>/2 AS MULT'CAND 

SC GETS DST (EXP) - SRC (EXP) 

SET RESULT SIGN TO SD ft CHECK IF EMODD 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600.12043 
; P1W124.MCR 600J2043 MICR02 1L 

; FLOAT .MIC C600. 12043 F t D floating point 



M 10 
F 6 D floating poin14-Jan-82 
MICR02 1L<03) H-Jan-82 15:30:16 



Fiche 2 Frame M10 



MULD 



VAX1 1/780 Microcode : PCS 01. FPLA OE, WCS124 



Sequence 335 



I 



Page 334 



U 12A9, 0CO1.0O3C41F8.FAFb, 01 14,8108 

U 12AB, 0CO1.O03CC1F0.2EF8.0010.137A 

U 137A, 0500.003C.4128.F800.0104.B380 

U 1380. 081 1.0O30.0180.F920.000G, 1384 

U 1384, OC00.003C,C9EO,3COO,0000,-:338 

U 1388, 0C00,003C,C1F8,3C00,0000,1108 

U 1108, 0000, 013D,6180.F910, 0084, 70E8 

U 110A, OC01,003C,C1FO,2D10.0030.110C 

U 110C. 0C00,013D,61E0,F80O,0084.70E8 

U HOE, 0CO0,OO3C, 01 E0.F928, 0000, 1389 

U 138^, 0521.203C, 0000, f 960,0000, 1390 

U 1390, 0010,0038, CDC0,3EF I. 0000. 1392 



12736 

12737 

12738 

12739 

12740 

12741 =**01 

12742 

12743 

12744 

12745 

12746 

12747 

12748 

12749 

12750 

12751 

12752 

12753 

12754 

12755 

12756 

12757 

12758 

12759 

12760 

12761 

12762 

12763 

12764 =0* 



AT THIS POINT. 

IDtT03=SRC<H> IDCT13=DST<H> IDCT23=SRC<L> 

RC[T23=DST<L> RCL"T53=DST<H> D =DST<L>/2 



Q =SRC<L> 



BRANCH ON STATE<1> (EMODO) 



12765 MULD. 03: LCRCCT23, 



RC*153J).CUC.UBCC, 
DO. 0, 
FE_SC-KC803, J/MULD.03 

6 IDCT03, D 0. 

RCR153_D. CLK.UBCC 



D_D.LEFT. Q.LEFT, 
SI/ASHL, FE_SC-KC.803 

D_D.0R.RCCT43 

IDCT23_D. D_Q. Q_D 

IDCT03_0, D_Q. Q_0 



12766 

12767 

12768 

12769 

12770 

12771 

12772 

12773 

12774 =;END 

12775 

1277u =0* 

12777 

12778 

12779 

12780 

12 7 81 

12782 

12783 

12784 

12785 

12786 

12787 

12788 

12789 

12790 



SC RC.F3, 

CACL. Z?, J/MULDMPy 



;1- 



ALU D. N AMX.Z TST. 
DJ). IDCTOl. 
LC_RfCT23 



6 0. D. SC KC.F3. 
CAU. Z?, J/MULDMPY 



;1- 



D..Q, Q.D, LC.RCCT53 



ALU.Q. RCCT63 ALU. LEFT. 
D.D.LEFf. ST/DIVD 



RCR153J.C. IDCT33 D, 
Q_LC 



MULD (OR POLYD) 

MULT'CAND TO R15 

MULTIPLIER TO D 

ADD EXP BIAS 128. TO TEMP EXP RESULT 

EMODD - MUST ADD EXTENSION TO SRC FRACT 

SRC<H> IN Q. SRC<L> IN D 

SAVE DST<L> WHILE WE PAD OUT SRC 



SHIFT SRC FRACT LEFT 
REMOVE EXTRA EXP BIAS 



PUT SRC EXTENDER AT LOW END OF FRACT 
SAVE EXTENDED SRC IN ITS OLD SPOT 

FINISH SAVIN6 SRC AND PREPARE TO MULTIPLY 

DST <L> TIMES SRC <L> 
LATCH M'CAND * 2 
SET LOOP CT FOR 16. LOOPS 
GOTO MULTIPLICATION SETUP 

RETURN FROM MUL SUBRT 

PRODUCT IS 1 PLACE TOO FAR RIGHT. SINCE WE 

HALVED THE LOW DEST FRACT BEFORE MULTIPLYING; 

THEREFORE SAVE THE 32ND BIT IN PSL<N>. 

D GETS PROD<H>. BRING SRC<H> INTO 0. 



DST <L> TIMES SRC <H> 

IMMEDIATE PROD TO Q. MULT'IER TO D 

GOTO MULTIPLICATION SETUP 

RETURN FROM MULTIPLY SUBROUTINE 

THIS PRODUCT IS ALSO 1 PLACE TOO FAR RIGHT. 

PREPARE FOR LEFT SHIFT, LATCH DST<H> 



SHIFT THE QUANTITY <D,Q,PSL<N» LEFT 1 PLACE 
TO FORM THE HIGH 64-BITS OF OST<L> X SRC 
IN <D. RC6> 

GET M'CAND. SAVE PROD<H> FOR LATER ADD 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600. 12043 
; P1U124.MCR 600,12043 MICR02 1L 
; FLOAT .MIC C600, 12043 F & D floating point : MULD 



N 10 



F fe D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



Fiche 2 Frame N10 Sequence 336 

VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 335 



U 1392. 0021 ,203C.C9F0,2D80,0000,1 118 

U 1118. 0CO0,0O3D,61F8,F9OO,0O84,70E8 
U 111A, 0811, 0014,01 80. F800, 0010. 1394 

U 1394. OC01,033C.CDFO,2COO,0030,mC 
U 111C, 001D,0014,Cir0.2D80.0010,1130 
U 111E, 001D.0010.C1F0.2DBO, 0010,1130 



U 1130, 0C0O,0O3D,61F8,F900,0084,70E8 

U 1132, 0C11, 0314, 01CO,F800, 0010, 1134 

U 1134, 0000,033C, 0180, F800, 0000. 113C 

U 1136, 0819,0314,0580,F800, 0000,1 13C 

U 113C, 0521. 373C.0040.F800.148D, 5262 

U 113E. 0819.0014,0580,F800.0000,113C 



RCCTOJ Q.LEFT,SI/ZERO, 
QIDL723 



» 0' Q .0« SC.KC.FJ, 
Lt RCCT03. 
CACL, J/MULOMPY 



12791 

127*-* 

12793 

12794 

12795 =0* 

12796 

12797 

12798 

12799 

12800 

12801 

12802 

12803 =;END 

12804 

12805 

12806 

12807 

12808 

12809 =0* 

12810 

12811 

12812 

12813 

12814 

12815 

12816 

12817 

12818 =;END 

12819 

12820 =0* 

12821 MULD. 04: LC RCCTOD, 



DJJ+LC, CLK.UBCC 



ALU D, N AMX.Z TST. 
DJ>. Q_I5CT33,~C31? 



ALU D*Q, RCCT63 ALU, 
CLK.UBCC. 

Q.IDCTOD, J/MULD.04 

ALU D+Q+1. RCCT63 ALU, 
CLKTUBCC, 
Q IDCT03 



;0- 



12822 

12823 

12824 

12825 

12826 

12827 

12828 

12829 =;END 

12830 

12831 ^0* 

12832 

12833 

12834 

12835 

12836 

12837 =0* 



D Q. 0, 
St KC.F3. 
CACL. J/MULDMPY 



;1 

Q D+LC. CLK.UBCC, D Q, 
C31? 



C317.J/MULD.05 



D D+KC.13, 
C31? 



GET 2 TIMES M'CAND 
GET SRC FRAC <L> 

DST <H> TIMES SRC <L> PLUS (DST<L> X SRCXL> 
D GETS MULT'IER, Q GETS 0(CAN'T ADO - OVFLO) 
LATCH 2 TIMES M'CAND 
GOTO SETUP MULTIPLICATION 

RETURN FROM MUL SUBRT 

ADD (DST<L> X SRCXL> TO (DST<H> X SRC<L»<L> 

(LC CONTAINS RCCT63 FROM MULDMPV) 



SAVE CURRENT SUM<L><31> IN PSL<N> 
SET UP FOR HIGH-ORDER ADD 



NO CARRY - ADD, SAVE RESULT ACROSS FINAL MPY 
SAVE THE CARRY IF THER IS ONE 
LOAD SRC<H> TOR FINAL MULTIPLY 



CARRY - ADD WITH CARRY, SAVE RESULT, 
SAVE THIS CARRY IF THERE IS ONE 
Q = SRC<H> FOR LASf MULTIPLY 



FRAC <H> TIMES FRAC <H> 

RE-LATCK 2 TIMES M'CAND 

MULT'IER <H> TO D, Q = (OVFLO PROBLEMS) 

SETUP LOOP CT 

GOTO SETUP MULTIPLICATION 

RETURN FROM MUL SUBRT 

SWAP HALVES, ADDING IN OLD PARTIAL PRODUCT 
BRANCH ON CARRY FROM PREVIOUS ADD 



CHECK FOR CARRY INTO HIGH PRODUCT 



PROPOGATE THE CARRY 



;0 



NO CARRY 

SHIFT <D,Q,PSL<N» LEFT ONE 

...— .._. -, . TO FORM 64-BIT PRODUCT IN <D,Q> 

STATE_STATE.ANDN0T.SHF.VAL, ; CLR STATE<0> IF FRACT<.5 (POLYD ONLY) 

SC FE, STATEO?, J/MULD.06 ; SC=EXP. SEPARATE OUT MULD FROM EMODD/POLYD 



12338 MULD. 05: ALU Q, Q ALU. LEFT, 

12839 f^D.CEFT. SI/DIVD, 

12840 

12841 

12S42 

12844 6 D+KC.13, J /MULD. 05 

12845 =;END 



CARRY FROM ADD 

PROPAGATE IT AND CONTINUE 



U 1262, O50O.0O3C,7C28,F8OO, 0104. 7396 
U 1263, 0000,173E,0180,F800.0000,0012 

U 1396, 0001 ,0D3C,4180,FAF8. 0000. 12C6 



ZZ-ES0AA-124.0 ; FLOAT .MIC C600.1204J F 

; P1W124.MCR 600-1204D MICR02 1L(03) 

; FLOAT .MIC [600.12043 F & D floating poi 

12846 
12847 
12848 
12849 
12850 
12851 
12852 
12853 
12854 
12855 
12856 
12857 
12858 
12859 
12860 
12861 
12862 
12863 
12864 
12865 
12866 
12867 
12868 
12869 
12870 
12871 
12872 
12873 
12874 
12875 
12876 
12877 
12878 
12879 
^2880 
.,881 
12882 
12883 
12884 
12885 
12886 



B 11 



& D floating poin14-Jan-82 
14-Jan-82 15:" " 
nt : MULD 



Fiche 2 Frame B11 



30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 



Sequence 337 



Page 336 



U 12C6, 0500, 003C, 0428, F800,00S'.,B396 
U 12C7, 0019,2014.41CO,F800,0010,03FC 



U 10E6, u203,0C3C, 6180, FA78, 0084, 72FC 



U 10E9, OF03,003C,01F8,FA78,0000.12FO 



;EXIT FROM MULD FOR ALL USERS (MULD, EMODD. POLYD) 



=**10 ;0- 

MULD. 06: Q Q.LEFT, D.D.LEFT. 
SI7DIVD, 
FEJCC.183, J/MULD.07 



=;END 



STATEO?, RETURN12 



THIS IS MULD 
WE WANT <D,Q> NORMALIZED FOR 
ROUNDING - THE FIRST SHIFT IS FREE. 
SET UP FE FOR PACKD, 60 TEST IF NORM 

POLYD/EMODD 
TEST NORMALIZATION IN CASE ITS POLYD 



MULD. 07: RCR153J), KC.803, D31? ; SAVE PROD<H>, CHECK IF NORMALIZED 



=110 



BRANCH ON D31 (PRODUCT NORMALIZED) 



=;END 



0~ 

D D. LEFT, QJJ. LEFT, 
Sl/DIVD. 
SC SC-KC.13, 
J/flULD.07 

Q Q+KC.803, CLK.UBCC, 
J7PACKD 



D31 IS 

DOUBLE SHIFT PROD LEFT 

DECREMENT EXP TO COMPENSATE FOR SHIFT 

TEST AGAIN (GUARANTEED TO SUCCEED 2ND TIME) 



ROUND PROD FRAC <L>, SET C31 FOR ROUNDING 
GO TO PACK RESULT 



=0 
MULDMPY: 



FRACTION MULTIPLY ROUTINE FOR MULTIPLY DOUBLE - MULTIPLIES 

AN UNSIGNED 32-BIT MULTIPLIER BY AN UNSIGNED 31-BIT MULTIPLICAND. 

LOGIC IS VERY PARALLEL TO INTEGER MULTIPLY - SEE COMMENTS THERE. 

ENTERED WITH "11" TEST FOR M'CAND=0 

MULTIPLICAND NOT ZERO - SETUP FOR LOOP 

D GETS M'CAND 

LATCH M'CAND TO LB 

SETUP LOOPCOUNT £ GOTO MULTIPLICATION ROUTINE 



ALU 0(A), D D.RIGHT2, 
LAB RCR153, SI/ZERO. 
SC KC.F3, MUL?,J/MULPAP 



= ;END 



;1 

D 0, Q 0, ALU 0(A). 
Dte RC&153, 
J/MOLPAP 



M'CAND IS 

LATCH M'CAND TO LB ANYWAY 
LATCH RCCT63 AND EXIT 



U 12F0, 0200,003E.0300,F930,4000.0002 



U 12F4, 0281,2C3C.0740,F800,0084,O2F0 

U 12F5, 028D,2C14.0740,F800,0084.B2F0 

U 12F6. 0291 ,2C00.07CO,F800.0084 .8320 

U 12F>, 028D,2C00.07CO,F800,0084,B320 



U 1320, 020D,2016,0340,F930,4000,0002 



U 1324, 028D,2C14,0740,F800,0084,B2F0 

U 1325, 0291,2C14.0740.F800,0084,B2FO 

U 1326, 028D.2C00.07CO,P800,0084,B320 

U 1327, 0281,2C3C,07C0,F800,0084.B320 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,12043 F ft 
P1V124.MCR 600,12043 MICR02 1L(03) K-Jan-82 
FLOAT .MIC C600. 12043 F & D floating point : MULD 



C 1, 



floating poin14~Jan-32 
15:30:16 



Fiche 
VAX1 1/780 Microcode 



2 Frame C11 Seguence 338 

: PCS 01, FPLA 0E, WCS124 Page 337 



12887 
12888 
12889 
12890 
12891 
12892 
12893 
12894 
12895 
12896 
12897 
12898 
12899 
12900 
12901 
12902 
12903 
12904 
12905 
12906 
12907 



.•MULTIPLY LOOP HERE - ENTER VIA 'WUL?, J/MULPAP" 



=000 

MULPAP: LC.PCCT63, nULP.PunC, RETURN? 



=100 



QD QD.RIGHT2, MUL.OXT, J/MULPAP 

QD (Q+LB)D.RI6HT2, MUL.CXT, J/MULPAP 

QDl(Q-LC)D.RI6HT2, MUL.1XT, J/MULPAM 

QD (Q-LB)D.RI6HT2, MU..1XT, J/MULPAM 



=000 

MULPAM: LC RCCT63. ALU Q+LB, Q ALU, 
MUrP.DONE, RET0RN2 



=100 



QD.(Q+LB)D.RIGhT2, MUL.OXT, J/MULPaP 

QD (Q+LOD.RI6HT2, MUL.OXT, J/MULPAP 

QD_:J-LB)D.RIGHT2, MUL.1XT, J/MULPAM 

QD QD.RI6HT2, MUL.1XT, J/MULPAM 



.•RETURN TO RETURN ADDR .OR. 2 



+0, OXT 

*1, OXT 

-2, 1XT 

-1, 1XT 



.•RETURN TO RETURN ADDR .OR. 
.-AFTER CORRECTING PRODUCT 



+1. OXT 

+2, OXT 

-1. 1XT 

-0. 1XT 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600. 12043 

; P1W124.MCR 600.12043 MICR02 11.(03) 14-Jan-82 

; FLOAT .MIC [600. 12043 F & D floating point : EMODF 



11 



F t D floating poin14-Jan-8t 
15:30:16 



Fiche 2 Frame 011 Sequence 339 

/AX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 338 



U 03C8, 0901, 203C.01E1,F800.0888, 7023 



U 1023, 0503, AE3D, 0180, F 988, 0000, 037E 



U 1033, 0901,003C,0185,F908,0918,739D 



U 139D, 0001,123C,0180,FAF8,0080,9299 



U 1299, OF18,C038.19F8,F988.00F4,703E 



U 1298, 0021, 003C, 4180, F 980, 0084 ,83A4 



U 129D, OF18.C038, 1 9F8,F988.00F4,703E 



U 129F, 0F18,CO38,19F8,F988,0OF4,7O3E 



12908 
12909 
12910 
12911 
12912 
12913 
12914 
12915 
12916 
12917 
12918 
12919 
12920 
12921 
12922 
12923 
12924 
12925 
12926 
12927 
12928 
12929 
12930 
12931 
12932 
12933 
12934 
12935 
12936 
12937 
12938 
12939 
12940 
12941 
12942 
12943 
12944 
12945 
12946 
12947 
12948 
12949 
12950 
12951 
12952 
12953 
12954 
12955 
12956 
12957 
12^58 
12959 
12960 
12961 



.TOC 



F & floating point : EMODF' 



;EMODF (54) MULR.RF, MULRX.RB, MULD.RF, INT.WL. FRACT.WF 
;ENTFR WITH Q = MULR.RF, D = MULRX.RB AT C.FORK. 



3C8: 
EMOD* 



DO (FRAC), 
St Q(EXP), 
SS ALU15, 
CHR.FLT.OPR,J/FL.ABS.1023 



1023: 
FL.A8S.1023: 

;0**1»- 



=;END 



=1001 



D D. LEFT, SI/ZERO, 

RCCT13 Q.0XTD3Y1E3, 

CALL, INTERRUPT. REQ? J/SPEC 



MOVE EXT'ER TO Q 
MUL'IER FRAC 
MLl'IER EXP 
MUL'IER SIGN 
CHECK FOR -0 

ASSIGN THIS ADD BECAUSE PCS CALLS IT 



MOVE TO LEAVE ROOM FOR M'lER EXT'ER 
RC 1 GETS M'lF'! EXT'ER (BYTE) 
GO GET M'CAND 



1033: .-ASSIGN THIS ADDRESS BECAUSE OF CONSTRAINT ON PREVIOUS INSTRUCTION 



;1**1* — 

D D(FRAC), 

Ft D(EXP),CLK.U3CC, 

LC.RCCT13, 

SS SS. XOR.ALU156SD ALU15, 

CHR.FLT.OPR 



RCR153 D, 
SC SC+FE. 
EAru? 



; 1 001 

SC KCZER03, 

RCTJT13 XCZER03, 

D 0,0 0,SET.CC(INST), 

J7EM0DF.7 

RCCT03 D. LEFT, SI/ZERO. 
SC_SC-RC.803,J/EMODF.2 



;1101 

SC KCZER03, 

RCH13 KCZER03, 

D 0,0 0,SET.CC(INSD. 

J7EMODF.7 



;1111 

SC KCZER03, 

RCtT13 KCZER03. 

D 0,0 0,SET.CC(INST), 

J7EM0DF.7 



RETURN PROM 'SPEC" 
GET M'CAND FRAC 
M'CAND EXP 

LATCH UP MULTIPLIER EXTENDER 
SS GETS RESULT SIGN 
CHECK FOR -0 



R15 GETS M'CAND 

SC GETS SUM OF EXP'S 

M'lER OR M'CAND = 0? 

PROD = (M'lER IS 0) 

PROD SET TO 
PROD SET TO 
GOTO WRITE RESULT 

PROD .NE. 

RC GETS M'CAND * 2 

SAVE EXP WITH BIAS ADJUSTED 

PROD = (M'lER, M'CAND ARE 0) 

PROD SET TO 
PROD SET TO 
GOTO WRITE RESULT 

PROD = (M'CAND IS 0) 

PROD SET TO 
PROD SET TO 
GOTO WRITE RESULT 



U 13A4, 0811, 2030,41 FC,FA78, 0104,B20C 



ZZ-ES0AA-124.0 ; FLOAT .MIC C600, 12043 F 

; P1W124.MCR 600.12043 MICR02 1L(03) 

; FLOAT .MIC [600,12043 F & D floating point : EMODF 



E 11 



& D floating poin14-Jan-82 
14-Jan-82 15:30:16 



Fiche 2 Frame E11 Sequence 340 
VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 



339 



U 120C, 0203, 0C3D, 6580, F900. 0084, 6354 

U 120E, 0C03,003C,0DE0,F988,00D4,73A5 
U 13A5, 0DOO,OO3C,01F8,F8O0,0O81,102E 



U 102E, OEOO,003D,0180,F800,018C,A946 

U 103E, 0810,1438, C1F8,3D08, 0000, 1305 

U 1305, 0000, 003C.4180,F800, 0084, 93A6 

U 1307, 0D00,003C,4180,F800,0084,73a6 



12962 
12963 
12964 
12965 
12966 
12967 
12968 
12969 
12970 
12971 
12972 
12973 
12974 
12975 
12976 
12977 
12978 
12979 
12980 
12981 
12982 
12983 
12984 
12985 
12986 
12987 
12988 
12989 
12990 
12991 
12992 
12993 
12994 
12995 
12996 
12997 
12998 
12999 
13000 
13001 
13002 
13003 
13004 
13005 
13006 
13007 



EMODF. 2:;- 

LAB RCR153, SD SS, 
ALU Q.OR.LC, D ALU, 
0, FE.SC-KC.803 



LATCH M'CAND 

D GETS FULL 32 BIT MULTIPLIER 

UNBIAS PRODUCT EXPONENT TO FE 



A NOTE ON THE MULTIPLICATION: 

THE MULTIPLICAND HAS BIT 31=0, BIT 30=1 

THE MULTIPLIER HAS BIT 31 =1, ALL BITS ARE SIGNIFICANT 

THE MULTIPLICATION IS CARRIED TO 66 BITS (17 ITERATIONS) SO THE LAST 

ITERATION WILL THINK THE MULTIPLIER IS POSITIVE. 

THEREFORE THE PRODUCT WILL BE SHIFTED 3 BITS RIGHT FROM WHAT IT 

WOULD HAVE BEEN IF BOTH FRACTIONS HAD BEEN NORMALIZED AND THE 

MULTIPLICATION CARRIED TO 64 BITS. 



=0* 



;0*- 

D D.RIGHT2, SI/ZERO, 

L7 RCCT03, 

SC JCC.103, ALU 0(A), 

CAtL,MUL?,J/Ml£PP.4 



RCCT13 0, N&Z ALU.VfcC 0, 
SC KC.33, 
D 5,QJ> 



■ ***** 

; D HAS 
=0**1* 

EMODF. 6 



SC.FE, D.DAL. SC, Q_0 

ENTRY POINT FOR FPA ***** 
FRAC, SC HAS UNBIASED EXP, SS&SD 



SHF'G FOR MULIPLICATION 

LATCH M'CAND * 2 

SETUP LOOP COUNT AND ALUM LATCHES 

CALL MUL SUBRT, GUARDING AGAINST SC=0 

RETURN 

SET UP RCCT13 AND CCS FOR CVTFI 

SET UP TO SCALE PRODUCT 

SWAP SO D GETS PROD<H>, PROD<L> 

SCALE PROD SO D HAS 
31/32 SIGNIFICANT BITS 



HAVE RESULT SIGN, RCCT13=0, Z=1 



; 0**1 * 

SC SC-SHF.VAL,FE_EALU, 
D DAL. NORM, 
CALL, J/CVTFI.1 



NORMALIZE 



EMODF. 7: 



; 1 **1 * 

IDCT03_D, Q_0, D RCCT13, 
SC? 



=101 



; 1 01 

SC.SC+KC.803, J/EM0DF.8 



;111 

SC_KC803, D_DAL.SC 



SET UP TO SHIFT FRACTION 
BUT DON'T SHIFT IF NUM<1.0 

BRANCH ON SC (NUM => 1.0) 
NUM<1.0 - RE-BIAS EXPONENT 



NUM => 1.0 - THROW AWAY INTEGER 



U 13A6, OEOO.OD3C.4180.F800.008C.B2D9 



U 12D9. 0003. 003C.C587.3C00, 1488, 72A7 

U 12D9. 0819. 0014. 4180. F800. 0010. 13AC 

I' 13AC. OOOO.O33C.0180.F8OO.0I0O.D210 

U 1210. 0808. 0038.0180.F800, 0000. 13AD 

U 1212. 0808.0038.0180.F800.0081.73AD 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600.12043 

; P1W124.MCR 600.1204] 

; FLOAT .MIC [600. 12043 F & D floating point 



F I D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 75:30:16 

EMODF 



F 11 

Fiche 
VAX1 1/780 Microcode 



2 Frame F11 Sequence 341 

: PCS 01, FPLA OE, WCS124 Page 



340 i 



U 13AD. 0001. 543C.1 980, F 800, 5484. 72A5 

U 12A5, OF03.003D,0180,F800.0050.12AC 

U 12A7, 0000, 1A3C.31F0.2C00, 0000. 108C 

U 12AD, OF03,003C,01F8,F988,0000,108C 

U 12AF. 0018,0038,F580,F9B8,0000.12B4 



13008 EMODF. 8: 

13009 ; 

13010 SC SC-SHF.VAL, 

13011 5AL.NORM. KL.803, 

13012 D.NE.O? 

13013 =*01 

13014 EMODF. 9: 

1 301 5 ; *01 

13016 IDCT13 D. SC OCA). 

13017 STATE 0(A), " 

13018 SGN/CCR.SD+SS, 

13019 J/EMODFD 
13020 
13021 
13022 
13023 
13024 
13025 
13026 
13027 =0* ;0* 

EALU SC, D PACK.FP, 
J/EM0DF.10 



; *n 

D_D+KC803, CLK.UBCC 



FE.SC+1, C31? 



EALU FE, SC FE. 
D.PArK.FP, J/EM0DF.10 



13028 
13029 
13030 
13031 
13032 
13033 
13034 

13035 EMODF. 10: 

1 3036 ; 

13037 ALU D, H AMX.Z TST, 

13038 UOR0, INTRPT.STftOBE, 

13039 STATE KCZER03, 

13040 SC KC7ER03, SC? 
13(K1 

13042 =0101 ;0101 

13043 ALU 0(A), NfcZ.ALU.VfcC O.D 0, 

13044 CALCCPSLFU3 " " 
13045 

13046 EMODF D: ;0111 

13047 IDCCES3, 

13048 P5L.V'?,J/EM0DF.11 
13049 

13050 =1101 ;1101 

13051 Q.0,D.0,RCCT13.0,J/EMODF.11 
13052 

1 3053 ; 11 1 1 

13054 RCCT73 KC.A3.J/FL0AT. FAULT 



NORMALIZE FRACTION 
SET UP ROUND CONSTANT 
TEST FOR FRACTION 



D=0 

MAKE FRACTION A TRUE ZERO 

CLEAR STATE FOR DEST STORE FLAGS 

60 STORE THE RESULTS 



ROUND FRACTION 



TEST FRACTION OVERFLOW FOM ROUND 



NO OVERFLOW - USE UNINCREMENTED EXP 



OVERFLOW - USE INCREMENTED EXP 
GET LEFTOVER FRACTION PART 



SET COND CODES FROM FRACT 

CLEAR STATE FOR RESULT STORE SECTION 
SET FOR FLOAT. TEST FOR UNDERFLOW 



FLOATING UNDERFLOW - MAKE FRACT=0 



** EMODD ENTERS HERE ** 

NO UNDERFLOW 

SEE IF WE HAD AN INTEGER OVERFLOW 

RETURN HERE IF PSL<fu>.eq.0(SC.eq.0) 
CLEAR FRACT (INT=0 BY IMPLICATION) 

RETURN HERE IF PSL<fu>.er USC.ne.O) 
T7 GETS UNDERFLOW TRAP CODE 



U 108C, 081 O,0E39,C 580, 3D08. 0080. C47E 



U 108E, 081 9, 2030, 65E0,F 800. 0000. 1384 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600. 12043 
P1W124.MCR 600,12043 
FLOAT .MIC [600, 12043 



G 11 
F I D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



Fiche 2 Frame 611 



F I D floating point : EMODF 



VAX11/780 Microcode : PCS 01, FPLA OE. WCS124 



Sequence 342 



Page 341 



U 10EC, OC01,003C,0180,F990,5400.D08A 



U 10ED. 0C40. 0038, 01 80, F 990, 5 COO, 1084 



U 1384, 0C00, 003C, 3180. 3C00, 0000, 108C 



13055 
13056 
13057 
13058 
13059 
13060 
13061 
13062 
13063 
13064 
13065 
13066 
13067 
13068 
13069 
13070 
13071 
13072 
13073 
13074 
13075 
13076 
13077 
13078 
13079 
13080 
13081 
13082 
13083 
13084 
13085 



108C: ; ASSIGN THIS ADDRESS BECAUSE PCS CALLS IT 
EMODF.11: 



; 00*1 1 00 

SC SC+1 , 

idet13 d, d rcct13. 
call.iRterrOpt.req?, 

J/ASPC 



** EDIV ENTERS HERE ** 

SC SET TO 1/3 FOR FLOAT/DOUBLE 

SAVE FRACT<H>, GET FRACT<L> 

EVALUATE INT.WL 



108E: 



10EC: 



.ASSIGN THIS ADDRESS BECAUSE OF CONSTRAINT ON PREVIOUS INSTRUCTION 

; 00*11 10 ; INTEGER OVERFLOW OCCURRED 

Q D, D Q.OR.KC.103, ; SET INTEGER OVERFLOW CODE IN C.E.S. 
J7EMODF.V 

.-ASSIGN THIS ADDRESS BECAUSE OF CONSTRAINT ON PREVIOUS INSTRUCTION 



;1 1*1 100 

RCCT23 D, 

DO, 

STATE STATE+1. 

INTRPT. STROBE. 

J/EMODF.12 



RETURN 60: INT.WL IS MEM MODE 

SAVE INT.WL ADDR 

D GETS FRACT <L> 

MARK FLAG FOR INT.WL R MODE 



10ED: 



.•ASSIGN THIS ADDRESS BECAUSE OF CONSTRAINT ON PREVIOUS INSTRUCTION 



;11*1101- 

DO, 

RZZT21 RLOG. RIGHT, 

INTRPTTSTROBE, 

J/EMODF.12 

EMODF . V : ; 

IDCCES3 D, D Q, 
J/EMODF . 1 1 



RETURN 61: INT.WL IS R MODE 
D GETS FRACT <L> 
SAVE REG » FOR INT.WL 



WRITE CES WITH TRAP CODE, GO STORE RESULTS 



U 1084. 0000,OE3D,C980.3C00.0080,C47E 

U 10E4, 0001, 003C, 0980. F9A0, 1404, 91 14 
U 10E5. 0OO0.173C,C1FO,2C0O,OO0O.12EA 



H 11 



ZZ-ES0AA-124.0 ; FLOAT .MIC [600. 12043 F & D floating poinH-Jan-82 Fiche 2 Frame H11 Seguence 343 

; P1W1 24. MCR 600.12043 MICR02 1LC03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA 0E, WCS124 Page 

; FLOAT .MIC [600. 12043 F t D floating point : EMODF 



342 



U 1114, 0601. 003D, 01 EO.F800. 0200, 0D0D 



U 1115, 0010,1738, C1F0.2D20, 0200, 12EA 



U 12EA, OC10,0038,C5F0.2D10,0083,1385 



U 12EB, 0C10,O038.C5FO,2D1O, 0200, 1386 



U 1385, OC01,173C,0180,F8E8,0000,12F1 



U 12F1, 0001, 163C.C9F0.2CD8, 0000, 1008 



U 12F3, 0010,0638, 01C0. 3108, 0000J00C 



13086 =00****0 

13087 EMODF. 12:; 

13088 ID[T23 D, SC SC+1. 

13089 CALL, INTERRUPT. REQ?, 

13090 J/ASPC 
13091 

1 3092 =1 1 ****0; 

13093 RC[T43 D, 

13094 STATE 5TATE+K[. 23, 

13095 J/EM0&F.14 
13096 

1 3097 # 

13098 Q ID[T03, 

13099 STATE0?,J/EM0DF.16 

13100 =;END 
13101 

13102 =0 

1 31 03 EMODF .14:; 

13104 VA 0,0 D, 

13105 D B.RIGHT. 

13106 CALL.J/PRB.W 
13107 

13108 ;1 

13109 Q ID[T03. 

13110 V* RC[T43. 

13111 STATE0?,J/EM0DF.16 

13112 =;END 

13113 =10 

13114 EMODF .16:; 

13115 D Q.Q JD[T13. 

13116 St RCtT23(EXP>, 

13117 J/FM0DF.17 

13118 

13H9 ;1 

13120 D Q,Q JD[T13, 

13121 VA" RCUT23, 

13122 J/EMODF.20 

13123 =;END 
13124 

1 31 25 EMODF .17:; 

13126 R(SC) D,D Q, 

13127 STATET? " 
13128 

13129 =01 

1 31 30 EMODF .18:; 

13131 R(PRN) D. 

13132 Q ID[T23, 

13133 STATE7-47.J/EMODF.19 
13134 

13135 ;1 

13136 CACHE D[INST.DEP3, 

13137 Q RCCT13, 

13138 STATE 7-4?, J /EMODF. 22 

13139 =;END 



T2 SAVES FRACT <L>, SC GETS 2/4 (FLT/DBL) 

EVALUATE FRACT. WX MODE 

RETURN 60: FRACT.WX IS MEM MODE 
SAVE FRACT. WX ADDR 
MARK FOR MEM MODE FOR FRACT 
GOTO PR08E FRACT. WX 

RETURN 61 : FRACT. WX IS R MODE 
GET BACK INT.WL 
INT.UL IS R OR M MODE? 



SETUP FRACTION ADDR FOR PROBE SUBROUTINE 
GET D SHIFTED FOR PAGE BOUNDARY TEST 
GOTO PROBE FRACT.WX BEFORE WRITING ANY 

PROBE OK 

GET BACK INT.WL 

GET BACK ADDR 

IS INT.UL MEM OR R MODE? 



INT.WL IS R MODE 
D GETS INT, Q GETS FRACT.WX 
GET BACK REG # 



INT.WL IS MEM MODE 

D GETS INT, Q GETS FRACT.WX 

GET ADDR 



WRITE INT.WL 

IS FRACT MEM OR R MODE? 



R MODE 
WRITE FRACT. WF OR FRACT. WD <H> 
GET BACK FRACT <L> 
EMODF OR EMODD? 

MEM MODE 

WRITE FRACT. WF OR FRACT.WD <H> 

GET BACK FRACT <L> 

EMODF OR EMODD? 



ZZ-ES0AA-124.0 ; .-LOAT .MIC C60O.12043 

; P1W124.MCR 600-12043 

; FLOAT .MIC C600, 12043 F 6 D floating point : EMODF 



I 11 



F t D floating poin14-Jan-82 
MICR02 11(03) 14-Jan-82 15:30:16 



Fiche 2 Frame 111 Seguence 344 
VAX1 1/780 Microcode : PCS 01. FPLA 0E, WCS124 



Page 343 | 



U 1008. C000.003C. 0180. F804.4000. 0062 

U 1009, C001.203C.0180.F8E4 .4000,0062 

U 13B6. 0000. 003C. 0180.3000.0000. 138C 

U 13BC. 0C10. 1738. 0180, F920,0200,12F1 

U 100C, CO0O,OO3C. 0180, F804, 4000,0062 

U 100D, 0C0O,OO3C,0180.F803.0O0O,03FD 



13140 =1**0 ;0 ; 

13141 EMODF. 19:CLR.IB.OPC,PC PC+1, 

13142 J/IRD 
13143 

13145 R(PRN+1) Q, ; 

13146 CLR.J8.0PC, PC PC+1 . 

13147 J/IRD 

13148 =;END 
1*149 

1 31 50 EMODF . 20 : ; , 

13151 CACHE DCLON63 
13152 

13154 VA RCCT43,D Q. ; 

13155 ST*TE1?,J/EM0DF.18 
13156 

13157 =1**0 

1 31 58 EMODF . 22 : ; , 

13159 CLR.J8.0PC.PC PC+1. 

13160 J/IRD 
13161 

13162 ; 1 ; 

13163 D C, 

13164 VA" VA+4, 

13165 J/5T0R.L 

13166 =;END 



EMODF: 

UPDATE 18, PC 
GOTO NEXT INSTR 

EMODD: 

WRITE FRACT.WD <L> 
UPDATE 18, PC 
GOTO NEXT INSTR 



STORE INT.WL 



SET FRACT.WX ADDR 
FRACT.WX MODE R OR MEM? 



EMODF 
UPDATE IB, PC 
GOTO NEXT INSTR 

EMODD 

GET FRACT.WD <L> 

INC ADDR 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,12043 

; P1W1 24. MCR 600.12043 

; FLOAT .MIC C600, 12043 F & floating point 



J 11 



F fc D floating poin14-Jan-82 
MICR02 1LC03) 14-Jan-82 15:30:16 



EMODD 



Fiche 2 Frame J11 Sequence 345 

VAX1 1/780 Microcode : PCS 01. FPLA OE, WCS124 Page 344 



U 0386. 0C03,8E3D,0180,F9A0,0000,037E 

U 0396. 0000. 003C, 01 80, F 91 0,0000, 1043 

U 1043, 0000. 003C. 0180. F300, 0000, 1261 

U 1261, 001 0, 0039, 0D80,F 988, 1404, 7003 

U 1271, 0003,003C,C180,3D88,1450,73C1 

U 1273. 0001, 203C65F 8, F 990, 1404, 7041 



13167 
13168 
13169 
13170 
13171 
13172 
13173 
13174 
13175 
13176 
13177 
13178 
13179 
13180 
13181 
13182 
13183 
13184 
13185 
13186 
13187 
13188 
13189 
13190 
13191 
13192 
13193 
13194 
13195 
13196 
13197 
13198 
13199 
13200 
13201 
13202 
13203 
13204 
13205 
13206 
13207 
13208 



.TOC 



F & D floating point : EMODD' 



;EMODD (74) MULR.RD. MULRX.RB, MULD.RD, INT.WL, FRACT.WD 
.-ENTER WITH <RC 0. Q> = MULR.RD, D = MULRX.RB AT C.FORK. 

COMPUTATIONAL METHOD - THE EXISTING CROSS-MULTIPLY TECHNIQUE, 
WHICH WORKS FINE FOR MULD AND POLY, FALLS 1 BIT SHORT 
IN ACCURACY FOR EMODD. TO GET AROUND THIS, SPECIAL CODE IN THE 
MULTIPLY DOUBLE SUBROUTINE (TRIGGERED BY A STATE BIT) DELETES 
THE NORMALIZE BIT OF THE EXTENDED ARGUMENT, REDUCING ITS ACCURACY 
TO 63 BITS. AFTER THE MULTIPLY IS DONE, MORE SPECIAL CASE CODE 
(IN EMODD THIS TIME) ADDS THE NON-EXTENDED ARGUMENT INTO THE 
PRODUCT IN SUCH A WAY AS TO CONSTITUTE THE 64TH MULTIPLY STEP. 
THIS SEEMS TO YIELD THE DESIRED ACCURACY. 



386: 
EMODD: 



396: 



RCCT43 D.OXTCBYTEJ, 

D Q, 

CALL, INTERRUPT. REQ?,J/SPEC 



GET 8 BIT EXT M'lER 
MOVE MULR <L> TO D 
EVALUATE MULD.RD 



LC.RCCT23,J/FL.ABS.1043 



. RETURN WITH MULD IN <RC 2, D> 



1043: 
FL.ABS.1043: 



J/EMODD.1 



=0**01 ; 

EMODD. 1: RCCT13 LC, STATE KC.33, 
CALL CMULD. 003 



=1**01 ;0- 



=;END 



IDCT03J), STATE FE, 
RCCT13.0, N8Z ACJ.V&C 0. 
J/EMO&D.6 

. ! 

RCCT23 Q, STATE KC.103, 
Q 



ASSIGN THIS ADD BECAUSE PCS CALLS IT 



** HACK TO AVOID CHANGING PROM ** 



UNPACK AND MULTIPLY THE FRACTIONS 
MULD HAS SPECIAL-CASE EXTENDER CODE 

PRODUCT = 

PREPARE TO SHARE CODE WITH EMODF 

ZERO INTEGER AND FRACTION PARTS 

AND GO STORE IT ( MULD LEAVES 10 IN FE!) 

PRODUCT .NE. 

SAVE LOW PRODUCT FRACTION, SET DBL FLAG 

CLEAR Q FOR CONSTRAINT HACKERY 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600.1204J 

; P1W124.MCR 600.1204:) MICR02 1LC03) K-Jan-82 

; FLOAT .MIC C600,1204J F & floating point 



K 11 



F & D floating poin14-Jan-82 
EMODD 



Fiche 2 Frame K11 Sequence 346 

30:16 VAX11/780 Microcode : PCS 01. FPLA 0E. WCS124 Page 345 



U 1041. 0010,OD39,41CO,F910,0184.B2FA 
U 1051. 0810.1A38.C1F8.3D10.1500.101C 

U 101C. OD10.1438.C9C0.3D08.0010.1025 

U 101E. OD10.1438.C9C0.3D08, 1410, 5025 

U 1025, 0C10.1B39,41C0.F910. 0184,8678 
U 1027, OC01,003C,C9F0.2D90.0000,138E 

U 1035, 0098,1638,01CO,F800,1504,7208 

U 1208, 0001,203C,0180,F800,14A2,92A7 

U 1209, 0001. 203C, 01 80, F 800,1 482, 92A7 
U 13BE, 0D03,003C, 0180, F800, 0088, 73C0 

U 13C0, 0001, 003C,01E0,F800, 0010. 1025 



** FPA FMODD ENTERS HERE WITH MANTISSA IN <D,RCCT23>. EXP IN SC, 
STATE=10, SIGN IN SS. 0=0. 



13209 ; 

13210 ; 
13211 

13212 =0**** 

13213 EMODD.2: Q RCCT23, SC SC-KC.80J, 



13214 

13215 

13216 

13217 

13218 

13219 

13220 

13221 =110* 

13222 

13223 

13224 

13225 

13226 

13227 

13228 

13229 

13230 

13231 

13232 =0*101 

13233 



FP EALU, 
D31?, CALLCEM0DD.5J 



IDCT0J D, D RCCT2J, 
Q.O. FE.STATE, PSL.V? 

6 RCCT13, CLK.UBCC. 
IDCT23 D, D DAL. SC, 
SC?, J/EM0DD.3 

STATE STATE .ANDNOT.FE, 
Q RCrT13. CLK.UBCC, 
TDCT2J D, D.DAL. SC, 

5c? 



60 NORMALIZE FRACT AND GET INTEGER PART 
SAVE EXPONENT IN FE 



RETURN FROM CVTFI - STORE INT FROM D, 
GET MANTISSA<L> IN D, TEST INT OVFLO 

NO OVERFLOW - LEAVE STATE=10 
GET MANTISSA<H> IN Q & SET Z ON IT 
DO 1ST PART OF 64-BIT FRACT SHIFT 
WHILE WE CHECK IF ITS NECESSARY 

OVERFLOW 

CLEAR STATE TO INDICATE OVFLO 

IF NUM=>1.0 WE WANT TO SHIFT THE INTEGER 

PART OUT OF THE MANTISSA - START IT, 

AND TEST IF WE REALLY OUGHTA DO IT. 



BRANCH ON SC.GT.O (NUM=>1.0) - ALSO CALLSITE FOR ADDD/PACKD 



RCCT2J.D, DQ.Q IDCT2J,' 
J/EMODD.5 



STATE KC.8:, FE KC.8J, 
Q Kr.8J.RIGHT2, 
STATE4? 



13234 EMODD. 3: D Q, Q RCCT23. 

13235 SZ SC+RC.803, FE EALU, 

13236 ALU?, CALLLADD5.313 
13237 
13238 
13239 
13240 
13241 
13242 
13243 
13244 
13245 

13246 =;END 
13247 

13248 =***0 
13249 
13250 
13251 
13252 
132S3 
132!>4 

13255 =;END 

1 3256 

13257 EMODD. 4: D DAL.SC, SC 0(A) 
13258 
13259 

13260 Q D, ALU D, CLK.UBCC. 

13261 J/EM0DD.3 



. 

SET.V, STATE STATE+FE. 
SC Q, J/EMODFD 



'SC Q, STATE STATE+FE. 
J/EMODFD 



NUM < 1.0 (ALSO NUM=>1.0 CASE JOINS IN HERE) 

GET UNSHIFTED FRACTION IN <D,Q> 

PUT BIAS BACK INTO EXPONENT 

USE ADDD TO NORMALIZE. ROUND & PACK 

NUM => 1.0 

SAVE NEW FRACT<L>, SET UP TO SHIFT 

FRACT<H> LEFT TO DESTROY INT PART 

ADDD.31/PACKD RETURNS HERE - RESULT IN <D,RC1> 
MONKEY BUSINESS TO SET STATE=10, SC=2 
SO WE CAN SHARE RESULT-STORE CODE WITH EMODF 
MEANWHILE, TEST THE SAVED INT OVFLO FLAG 



INTEGER OVERFLOW OCCURRED 

SET STATE=10. SET V BIT (PACKD CLEARS IT) 

SET SC=2, SAVE PACKED RESULT<H>, JOIN EMODF 

NO INTEGER OVERFLOW OCCURRED 
SET SC=2, STATE=10 FOR EMODF 
GO STORE THE RESULTS 



MANTISSA SHIFT CONTINUED - SHIFT FRACT<H> 



SET Z ON HI6H LONGWD OF NEW FRACT 
AND GO NORMALIZE, ROUND AND PACK IT 



U 12FA. 051B, 0014, 0428, F800.0184,B2FB 
U 12FB. 0003,003C, 01 80, F 988. 0000, 0946 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600, 12043 
; P1U124.MCR 600.12043 
; FLOAT .MIC [600,12043 



F & D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



F fc D floating point 



L 11 

VAX1 1/780 



Fiche 2 Frame Li 1 Sequence 347 
Microcode : PCS 01. FPLA 0E, WCS124 Page 346 



U 13C1, 0000.003C. 0987, F800. 0084, 708C 



13262 ; 
13263 
13264 

13265 =*10 
13266 



EM0DD 

INTERFACE BETWEEN EM0DD AND CVTFI - CALLED AS MICROSUBROUTINE 



BRANCH ON D31 (PRODUCT 

13267 EMODD.5: ALU 0+KC.13, Q Q.LEFT. 

13268 D B. LEFT, SI/&IVD, 

13269 Si SC-KC.13, FE EALU 
13270 
13271 
13272 

13273 =;END 
13274 

13275 
13276 

13277 ; 

13278 EMODD.6: SGN/CLR.SD+SS, 

13279 SC KC.23, J/EMODF.11 



IS NORMALIZED) (0 = 0) 

; PRODUCT NOT NORMALIZED 

; SHIFT THE FRACTION LEFT A BIT 

; ADJUST EXPONENT TO MATCH 



;1 

RCCT13J), J/CVTFI.1 



PRODUCT NORMALIZED 

INITIALIZE MANTISSA<H> HOLDER & CALL CONVERT 



CONTINUATION OF EMODD PROD=0 CASE 
CLEAR SIGNS (MAY NOT BE BECESSARY) 
SET D.P. FLAG IN SC AND JOIN EMODF 



ZZ-ESOAA-124.0 ; FLOAT .MIC C60O,12043 

; P1W124.MCR 600.12043 MICR02 1LC03) 

; FLOAT .MIC C600.1204] F & D floating point 



M 11 



F I D floating poin14-Jan-82 

14-Jan-82 15:30:16 VAX11/780 Microcode .- PCS 01, FPLA OE, WCS124 



Fiche 2 Frame M11 



Sequence 348 



POLYF 



Page 347 



U 03C2. 0803, 403C 01 80. F 800,0000 ,1 01 2 

U 00C2. 0800,003C.71F8,FA10,0084.701D 

U 101D. OD00.003C,0180,F800,0000.1310 

U 1310, 0017.8015. 0180, F801. 0200. 0E16 

U 1312, 0014, 0038. 01C0.F80O.0O0O.0E88 

U 1313. OOO0,O03C,018O.F80O,400O,1082 

U 12C2. 0000,C03C,0180,FAOO,0070,13C3 

U 13C3. 2014, 0038, 0180, F 800,4 200, OOAB 

U 12C3, 0000, C03C, 0180, FAOO, 0070, 13C3 



U 0448, COO0,C03C,01S0,FA04,4070,0062 



F fc D floating point : POLYF' 



13280 .TOC 
13281 

13282 ; POLYF (55) ARG.RF, DEGREE. RU, T8LADDR.A8 

13283 .-ENTER AT C.FORK WITH Q HAS ARG.RX, D HAS DEGREE. RW. 

13284 .-WHEN DONE, RO = RESULT, R2 = 0, R1 = 0, R3 = TABLE ADDR ♦ DEG*4 + 4. 

13285 ;IN PROCESSING, RO = PARTIAL RESULT, R2 = DEG, Rl = ARG. R3 = NEXT TABLE ADDR. 
13286 

13287 3C2: 

1 3288 POL YF : ; ; 

13289 DJ>.OXT[WORDJ.J/POLYF.O ; GET DEGREE. RW 

13290 0C2: 

13291 POLYF.FPD: 

13292 ; ; 

13293 D RCR23.Q 0.SC.KC.FFF8:, ; SETUP TO GET PC DELTA 

13294 J7FL.ABS.T01D 
13295 

13296 101D: .-ASSIGN THIS ADD BECAUSE PCS CALLS IT 

13297 FL.A8S.101D: 

D.DAL. SC ; PC DELTA IN DC07:003 



PCfcVA D.0XTCBYTE3+PC, 
CALL, J/SETFPD 



;10 ; READ ERRORS COME HERE 

Q_PC, J/BAKUP.PC ; BACKUP PC AND CAUSE A TRAP 

• 11 . RETURN FROM SETFPD HERE 

INTRPT. STROBE, J/P0LYF.2; WASTE - HOWEVER TOO TOUGH TO SHARE SETFPD CALL 



13299 

13300 

13301 =C0 

13302 

13303 

13304 

13305 =10 

13306 

13307 

13308 

13309 

13310 =;END 

13311 

13312 12C2: 

13313 POLY.C: ; 

13314 EALU SCALU RCROJ, 

13315 SET.tCdNSTT 
13316 

13317 POLY.O: ; 

13318 ALU PC, FLUSH. IB, 

13319 J/lS.FILL 
13320 

13321 12C3: ; 

13322 EALU SCALU RCROJ, 

13323 SET.rCdNSTT, 

13324 J/POLY.O 
13325 

13326 448: 

13327 POLY.CC: 
13328 

13329 EALU SCALU RCROJ, 

13330 SET.CCUNST7, 

13331 CLR.I8.0PC.PC PC+1,J/IRD 



BYPASS SPECIFIERS 

NEED TO RE-SETUP IDCFPDAJ 



SET COND CODES AFTER DONE FOR BOTH POLYF /D 
SC SHOULD HAVE THE EXP ID 
SET COND CODES 

FLUSH IB 

FLUSH IB IN CASE RE-ENTERED 



SET COND CODES AFTER DONE FOR BOTH POLYF /D 
SC SHOULD HAVE THE EXP ID 
SET COND CODES 
GOTO FLUSH IS 



SET CC AFTER DONE FOR BOTH POLYF/D 
SC SHOULD HAVE THE EXP ID 
SET COND CODES 
UPDATE IB, PC 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,12043 

; P1U124.MCR 600.12043 

; FLOAT .MIC [600,12043 F S D floating point : POLYP 



N 11 



F fc D floating poinH-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



Fiche 2 Frame N11 Seguence 349 

VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 348 



U 1012, 0C19,(X;J4,8DE0,F800,0010,13C4 



U 13C4, 001D.0138.C180.3D90,4118,70A2 
U 10A2, 0000, 003C, 01 80, F80G, 0000.01 06 

U 10A3, 0O01,0E3D,0180,F800,0800,047E 

U 10E3, 0058, 0038,45EO,42F8, 0000, 13C5 

U 13C5, 000:,003C,0180,F800,0800,13C9 
U 13C9, 0001, 203C,C1F0,2E98, 0000, 1224 

U 1224, 0001, ?03D,C580,3F90, 0000. 13E8 
U 1225, 0011, 0030, C5F0.2E90, 0000 J328 

U 1328, 0811, 2039,0180. FS00, 0088, 6E16 
U 132A, 0014,0038,01 CO, F 800, 0000, 0E88 
U 1323, 0018,0038,41 CO, FA78,0000,13CA 



13332 1012: .-ASSIGN THIS ADDRESS BECAUSE PCS CALLS IT 

13333 POLYF.O:; 

13334 ALU D.ANDNOT.KC.1F3, 

13335 CLK.UBCC, 

13336 D Q.Q D 

13337 =;END 

13338 ; 

13339 ID[T03 D, 

13340 ALU 0(B), RC[T23 ALU, 

13341 FE ff(EXP),CLK.UBtC, 

13342 I NTRPT. STROBE, 

13343 Z? 
13344 

15345 =01****0; 

13346 J/RSVOPR 
13347 

1 3348 =01 ****1 ; 

13349 ALU D.CHK.FLT.OPR, 

13350 CALE.INTERRUPT.REQ?, 

13351 J/ASPC 
13352 

1 3353 =1 1 ****1 ; 

13354 Q D. 

13355 DtiONG3 CACHE, 

13356 R[R15J ALU. RIGHT, 

13357 SI/ZERD,ALU K[. 80003 

13358 =;END 
13359 
13360 
13361 
13362 
13363 
13364 
13365 
13366 =0 
13367 
13368 
13369 
13370 
13371 
13372 
13373 
13374 

13375 =;END 
13376 

13377 =00 
13378 
13379 
13380 
13381 

13382 =10 
13383 
13384 
13385 
13386 



ALUJ>,CHK.FLT.OPR 
R[R33J3,Q_ID[T03 



ID[T13 D, 

ALU Q, 

LC RCLT23&R1 ALU, 

CAtL.J/POLY.PC 



RCR23 D.OR.LC, 
Q IDL713 



;00 

SC Q(EXP), 
D CC, 
CAlL,J/SETFPD 



;10 

Q..PC, J/BAKUP.PC 



CHECK IF DEGREE > 31 

CLOCK IN ALU.Z 

D GETS ARG. Q GETS DEGREE 



TO SAVES ARG 

RC 2 SAVES DEGREE, SET ALU.Z ON DEGREE 

FE GETS ARG EXP, CLOCK IN FOR ZERO CHECK 

ENABLE INTERRUPTS 

CHECK RANGE OF DEGREE IF LEGAL? 

NO: OUT OF RANGE 
DE6REE > 31: ILLEGAL 

YES: IN RANGE 
CHECK IF ARG IS -0 

GET COEF 

ASPC ALWAYS RETURNS 60 IN THIS CASE 
TABLE ADDR 
GET COEF CO 

SETUP FOR 4080 (FP 1.) 



CHECK IS. COEF CO FOR -0 

K3 STORES TABLE ADDR, Q GETS ARG 



T1 SAVES CO 
R1 GETS ARG 
LATCH DEGREE 
GO GET PC DELTA 



R2 GETS PC DELTA, DEGREE 
Q GETS CO 



SC GETS CO EXP 
D GETS DEGREE 
SET FPD 

READ ERROR, POLYF FPD PACKING ROUTINE 
BACK UP PC \ND CAUSE EXCEPTION 



;11 

Q_KC.803,LAB_R[R153 



GET 4080 (FP 1.) 



F ft D floating poinH-Jan-82 
MICR02 1L(03) H-Jan-82 ?5:30:1o 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,12043 

; PI W1 24. NCR 600,12043 

; FLOAT .MIC C60C. 12043 F ft D floating point : POLYF 



8 12 
H 
VAX1 1/780 



U 13CA, 001C,0014,C5F0.2E80.0000,13CB 

U 13CB. C00O.003C,0180,FA18,0000,13CD 

U 13CD. 0018,0014,1 187. FA98, 0200, 1064 

U 1064. 0001 .343C. 0180, FA80. 2000, 1301 

U 1066. 0001 .323C, 0180. FA80,4000, 1082 



U 1082. 0O0O,0E3C,01C9,FA08.0083,1336 

U 1086, 01 18, 0038,1 980, FA80, 0000. 13D0 

U 13D0, 001C. 2014, 0180. FA98. 0000, 13D1 

U 1301, 0018. 8038, 0580, FA90, 0000, 1082 

U 1301. 0018, 0038, 1980, FA80, 0000,1303 

U 1303. 0003, 003C, 0180. FA90, 0000, 13E6 



Q IDC. 13, 
RtR03.LA*Q 



LAB RCR33 



RCR33&VA LA+KC.43, 

SGN/CLR.5D+SS, 

D.NE.O? 

CLR.FPD, 
RCR03 Q, 
SC.6T.0?,J/POLYF.5 

RCR03 Q, INTRPT. STROBE, 
EALU.7? 



13387 

13388 

13389 

13390 

13391 

13392 

13393 

13394 

13395 

13396 

13397 

13398 

13399 =10* 

13400 

13401 

13402 

13403 

13404 

13405 

13406 

13407 =;END 

13408 

13409 =*01* 

1 34 1 POL YF . 2 : ; 

13411 Q R[R13(FRAC). 

13412 St RCR13CEXP). 

13413 SS ALU15, 

13414 INTERRUPT. REQ?, 

13415 J/P0LYF.8 
13416 
13417 
13418 
13419 

13420 =;END 
13421 
13422 
13423 
13424 
13425 
13426 
13427 

13428 =*01 

1 3429 POL YF . 5 : ; 

13430 RCR03 KCZER03 
13431 

1 3432 ; 1 

13433 RCR23 C, J /POLYF. 22 
1343^ =;END 



Fiche 2 Frame B12 Sequence 350 
Microcode : PCS 01. FPLA OE, WCS124 Page 349 



GET BACK 1ST COEF CO 

RUNNING SUM IS 1.0 BEFORE CO TESTED FOR -0 



LATCH TABLE ADDR 



INC TABLE ADDR 

EASE UP ON EALUZ CONSTRAINT 

IS DEGREE 0? 

DEGREE = 
CLR PSL <FPD> BIT 
RO GET COEF CO 
IS CO 0? 

DEGREE .NE. 
RO GETS COEF CO 
IS ARGUMENT 0? 



NO: 

ARG FRAC 
ARG EXP 
ARG SIGN 



;1 

RCR03 KCZER03. 
D_D.LE>T2 



RCR33 LA+D 



RCR23 KC.13, DT/BYTE, 
J/P0LVF.2 



YES: ARGUMENT = 

ZERO OUT THE PARTIAL PRODUCT 

D GETS DEGREE *4 



ADVANCE THE EXECUTION OF THE POLYNOMIAL 
TO THE LAST COEFFICIENT 

BY BUMPING THE TABLE ADDR AND DEGREE 
NOW JOIN THE ORDINARY ITERATION CODE 



CO IS 

SET RESULT 



CO IS NOT 

CLR R2 AND GO EXIT 



U 1336, 0900,003C.0185.FA00.0118,73D2 
U 1337, 0000,003C, 01 80. F800, 0000, 121C 

U 13D2, OO01.323C.01FC,F980,O100,9343 

U 1343. 0000. 003C.8D80.F 900, 0084, 73DC 

U 1347, 0F00.003C, 5987, FA18, 0284. 73D3 



ZZ-ES0AA-124.0 ; FLOAT .MIC [600. 12043 

; P1U124.MCR 600,12043 MICR02 11(03) 

; FLOAT .MIC [600. 12043 F g D floating point 



F & D floating poin14-Jan-82 
14-Jan-82 15:30:16 



POLYF 



C 12 

Fiche 2 Frame C12 Sequence 351 

VAX11/780 Microcode : PCS 01. FPLA OE. WCS124 Page 350 



U 13D3. 0000. 003C, 01 80,4000,0000.1309 

U 13D9. 0901.003C.01S1.FA80,0893,13DB 

U 13DB, 0018,0C14,1 180, FA98, 0200, 12BB 
U 1288, 0018,0038,1 980, FA80, 0000, 126F 

U 12BF. 0000. 003C.8D80.FA10, 0104, 73E3 



13435 =110 

1 3436 POL YF . 8 : ; 

13437 DRCR03CFRAC), 

13438 FF.R[R03(EXP). 

13439 SS SS.XOR.ALU15&SD ALU15 

13440 CLR.U8CC, 

13441 J/POLYF.9 
13442 

1 3443 ; 1 

13444 J /POLY. INT 

13445 =;END 

1 3446 POL YF . 9 : ; 

13447 FE.5C+FE.SD SS, 

13448 RClTOJ Q,Q 0, 

13449 EALU.Z? " 
13450 
13451 =*011 ;0 

LC.RCCT03, 

SC.KC.FFF9D, 

J/P0LYF.10 



;1 

SC K[.7F3,D 0, 
SGN7CLR.SD+5S, 
VA RCR33 



NO INTERRUPT REQ 

GET PARTIAL RESULT FRAC 

PARTIAL RESULT EXP 

SS PARTIAL RESULT SIGN 
CLOCK IN IF ZERO (EALU.Z) 



YES: INTERRUPT REQ 

INTRUPT ENTRY TO CLR TP AND BACKUP PC,R'S 



ADD EXP'S, SD GETS PART PROD SIGN 
PARTIAL RESULT = 0? 



NO: 

LATCH M'CAND * 2 (ARG) 

SETUP DAL SHF COUNT 



YES .-RETURN NEXT COEF AS PARTIAL PROD 
PARTIAL RESULT EXP SET TO 
FRAC SET TO 0, SIGN SET TO 
LATCH TABLE ADDR 



13452 
13453 
13454 
13455 
13456 
1J457 
13458 
-13459 

13460 =;END 

13461 ; 

13462 ;NOTE THAT THE NORMAL ADD ROUTINE IS SKIPPED IF THE PARTIAL PRODUCT 

13463 ;IS ZERO 8ECAUSE THE ADD ROUTINE DOESN'T ALWAYS HANDLE THE ZERO CASE 

13464 ; CORRECTLY 

13465 ; 
13466 
13467 
13468 
13469 
13470 
13471 
13472 
13473 
13474 
13475 
13476 
13477 

13478 =1011 
13479 



DHL0NG3 CACHE 



RCROJ D,D D(FRAC), 
SC D(EXP)7SS ALU15. 
CLE.UBCCCHK.FLT.O'R 



RCR336VA _A+KC.4j\ 
SC.NE.O?" 



13480 

13481 

13482 

.13483 



;1011 

RCR03 K[ZER03 



;1111 

LAB RCR23.FE KC.1F3. 
J/P0LYF.17 



GET NEXT COEFFICIENT 

SAVE COEF .UNPACK IT AND TEST f^OR RES OPR 



INCREMENT TABLE ADDRESS 
IS COEF ZERO? 



SC=0 

MAKE SURE ZERO IS CLEAN 

SC NE ZERO 

LATCH DEGREE. SET UP FE 

REJOIN CODE AFTER ADD 



U 13DC, OD50,0038.8580,FAF8,0084,7214 

U 1214, 0203, 0C3D. 01 80. FA78, 0000, 0350 

U 1216. OCOO,003C,ODEO,F800.0084.73DD 
|U 13DD. OD00.003C.01F8,F800,0081J3EO 

U 13E0. OEOC.003C.0180.FA18.028C.83E1 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600,12043 

; P1U124.MCR 600 120'*3 

; FLOAT .MIC [600.12043 F & D floating point : POLYF 



F & D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-tf2 15:30:16 



D 12 
-I 
VAX1 1/780 



Fiche 2 Fr am<? 012 Sequence 352 
Microcode : PCS . FPLA OE. WCS124 Page 



351 



13484 

13485 POLYF, 10: 

13486 

13487 

13488 

13489 

13490 =0* 

13491 

13492 

13493 

13494 

13495 

13496 

13497 

13498 

13499 =;END 

13500 

13501 

13502 

13503 

13504 

13505 

13506 



D.DAL. SC. 

RrR153 LC. RIGHT, SI/ZERO, 

SCJCCtD 

6 D.RJGHT2, SI/ZERO, 
AtU 0(A), 
LAB RCR153, 
CALC,MUL?,J/MULPP 

SC KC.33, 
DJ5.Q.D 



SC_FE, D.DAL. SC, Q„0 



SC SC-SHF.VAL, 
D PAL. NORM, 
VA" RCR33 



SHF M'lER IN POSITION 
R15 GET M'CAND (ARG) 
LOOP CT SET FOR 13. LOOPS 



BEGIN SHF" 6 M'CAND 

LATCH ALUT01 :0O3 

LATCH M'CAND 

CALL MUL SUBRTN - PROD HAS 4-5 LEADING O'S 

RETURN FROM MUL SUBRT 

GET READY TO ALIGN RESULT FRACTION 

D GETS HIGH PROD, Q GETS LOW PROD 



FRACTION NOW HAS 31 OR 30 SIGNIFICANT BITS 

NORMALIZE 

LATCH DEGREE COUNT 



U 13E1. 0008,0038. 59E0.41B0.0114.B3E2 



U 13E2. 0901.003C.01B1.FAF8.0883.10C6 



U 10C6, 0C18.1415.11E0.FA98.0290.B32i 
U 11C6. 0000.003C.0180.FA10.0000.12DD 



ZZ-ES0AA-124.0 ; FLOAT .MIC C600. 12043 F 

; P1W124.MCR 600.12043 MICR02 1L(03) 

; FLOAT .MIC r.600, 12043 F & D floating poi 

13507 

13508 

13509 

13510 

13511 

13512 

1:'513 

11514 

13515 

13516 

13517 

13518 

13519 

13520 

13521 

13522 

13523 

13524 

13525 

13526 

13527 

13528 

13529 

13530 

13531 

13532 

13533 

13534 

13535 

13536 

13537 

13538 

13539 

13540 

13541 

13542 

13543 

13544 

13545 

13546 

13547 

13548 

13549 

13550 

13551 

13552 

13553 

13554 

13555 

13556 

13557 

13558 

13559 

13560 

13561 



I D floating poin14-Jan-82 
14-Jan-82 15:30:16 



nt 



P0LYF 



E 12 

Fkhe 2 Frame E12 Sequence 353 
VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 352 



U 11CE, 0000, 143C,8D80,FA10, 0104, 72D1 
U 11CF, 0600,003C, 0180, F800,0C80. DICE 

U 1321. 0001,003C, 0180. F800,0091, 0604 

U 1323. 001 0, 1 438, C 585, 3D30, 0000, 1355 
U 1355, 0000.123C, 01 80, F 800. 0000, 05A2 

U 1357, 001 B,1 200, 1D80,F 800, 0082, 05A2 



P0LYF.12: 



RCCT63 ALU.ALU PACK.FP, 

FESC-KC.7F3.CCK.UBCC, 

QjJ. 

DtL0NG3_CACHE 



QQ.RIGHT, SI/ZERO, 

RTJR153 D.D D(FRAC), 

SCJ>(EX»,5SJVLU15,CHK.FLT.0PR 

=0*1**0110 

; 0*1 **01 1 

D ,. Q 49„ D ' 

RtR338VA L^KC.43, 
SC.SC-FE.CLK.UBCC, 
SC.GT.O?, CALLCPOLYF.143 

=1*1**0110 

; 1 *1 **011 

LAB_RCR23,J/P0LYF.19 

=1*1**1110 
P0LYF.13: 

; 1 * 1 **1 1 1 

UB RCR23, 

FE RC.1F3. 

SC7.J/P0LYF.26 



=*01 
P0LYF.14: 

;*01- 



; 1*1**1 11 

D D. RIGHT, SCSC+1, 
ST/ZERO.J/POtYF.13 



SC FE, ALU D, CLK.U8CC, 
J/WE6CK 

IDCT13 D,ALU RCCT63, 

SS SS.XOR.AL015&SD ALU15, 

SC.GT.O? 



=101 



;101 

EALU?,J/ADDFSH 



;11 1 

ALU 0-KCSC3,SC ALU, 
EALO?,J/ADDFSH 



SAVE PART PROD SIGN 
ADJUST RESULT EXP 
GETS MUL RESULT 
GET NEXT COEF 



PUT PRODUCT FRACTION IN ADDD FORMAT 

COEF FRAC 

COEF BXP r COEF SIGN, CHECK FOR -0 



D GETS DST FRAC. Q SRC FRAC 

UPDATE TABLE ADDR 

GET EXP DIFF, CLOCK IN FOR EXP'S DIFF 

IS COEF 0? 



RESULT 
LATCH DEGREE 



RESULT NON-O, NO CARRY FROM FRAC 
LATCH DEGREE 

SETUP TO DISREGARD UNDERFLOW FLAG 
CHECK FOR OVER/UNDER FLOW. 0, ETC. 

RESULT NON-0, CARRY FROM FRAC 
ROUND UP BY 1 



COEFFICIENT IS 

SUM = PARTIAL PRODUCT, ROUNDED. 

USE ADDF CODE TO CHECK FOR AND ROUND 

COEFFICIENT .NE. 

SAVE DST OPR (PART PROD), 

FIX SIGN INDICATORS FOR FADD 

SEE IF WE SHOULD NEGATE EXPONENT DIFF 

EXP DIFF <= - NO NEED TO NEGATE 
BREAK OUT FADD CASES AND ADD 

EXP DIFF > - MUST NEGATE 
NEGATE SC THRU MAIN DATA PATH 
NOW GO DO THE FADD. 



;YOU MAY ASK, WHY GO THROUGH THIS RIGAMAROLE WHEN WE HAVE AN EALU FUNCTION TO 
.-TAKE THE NEGATIVE ABSVAL OF (SC-FE)? THE ANSWER IS THAT SINCE THE MULTIPLY IS 
.•ALLOWED TO UNDERFLOW. THE RANGE OF THE EXPONENT DIFFERENCE IS LARGER THAN THE 
.-SIZE OF THE NABS ROM. 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600, 12043 

; P1W124.MCR 600-1204] 

; FLOAT .MIC C600, 12043 F & D floating point 



F & D floating poin14-Jan-82 
MICR02 1LC03) 14-Jan-82 15:30:16 



r 12 

Fiche 2 Frame F12 Sequence 354 
VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 



U 12D1, 0OO0,O03D,3DFO,2CO0,OO00,12AE 

U 12D3, 0008,0038.0180,FA80,0100,13E3 

U 12D5, OOOO,O03D,3DF0.2CO0.OO00,12AE 

U 12D7, 0818, 0038, 0180, FA18, 0000, 13F0 

U 12DD, 0O03,003C, 1980, FA80.0104,73E3 

U 12DF, 0818,0038,F580,FA18,0000,13F0 

U 13E3, 0018,8000.0580, FA90, 0010, 13E4 

u 13E4, 0000, 01 3C, 01 80, F 800, 4000, 1234 



U 1234, 0000,0E3C,01C9.FA08,0083,1336 
U 1235, 001 8,0038,1 980, FA90, 2000, 13E6 

U 13E6, 0018, 0036,1980, FA88,0000,12C2 



POLYF 

COME HERE AFTER ADD WITH FRAC IN D, EXP IN SC, BEN/SC 



353 



;0011 

ealu scrcr03 pack.fp. 
fe„ea1u,j/pol?f.17 



13562 ; 

13563 =0001 

13564 POLYF. 26: 

1 3565 ; 0001 ; 

13566 Q_IDCPSL3.CALLCPSLFU.A3 
13567 
13568 
13569 
13570 
13571 
13572 
13573 
13574 
13575 
13576 
13577 

13578 =1101 

13579 POLYF. 19: 

13580 ;1101 ; RETURN HERE IF PSL<fu>.eq.O(SC.eq.O) 

13581 RCR03_0,FEJCCZER03,J/POLYF.17 ; PRETEND UNDERFLOW DIDN'T HAPPEN 
13582 
13583 ;11!1-T ; RETURN HERE IF PSL<fu>.eq.1(SC.ne.O) 



; 01 01 

Q_I DCPSL3 , CALLCPSLFU. A3 

; 01 1 1 

D KC.83, 

LAB RCR33.J/P0LYF. FAULT 



SC.eg.O, UNDERFLOW 

Get PSL<fu> Z go see if it is set 

SC.eq.C01 to FF3, NO OVER/UNDERFLOW 

RO STORES RESULT 

FE GETS RESULT EXP TO SET CC LATER 

SC.lss.O, UNDERFLOW 

Get PSL<fu> t go see if it is set 

SC.gt.O, OVERFLOW 

D GETS OVERFLOW TRAP CODE 

FETCH TABLE ADDRESS 



D KC.A3, 

Lfej*CR33 ,J/P0LYF . FAULT 



RCR23 LA-KC.13,8YTE, 
CLK.UBCC 



INTRPT. STROBE. Z? 



13584 

13585 

13586 

13587 POLYF.17: 

13588 

13589 

13590 

13591 

13592 

13593 

13594 

13595 =0 

13596 

13597 

13598 

13599 

13600 

13601 

13602 

13603 

13604 

13605 POL YF. 22: 

1 3606 

13607 RCR13 KL7ER03. 

13608 SUb/SPEC,J/POLY.C 



; „ 

Q RCR13(FRAC), 
St RCR13(EXP). 
SS~ALU15, 
INTERRUPT. REQ?, 
J/P0LYF.8 



;1 

CLR.FPD.RCR23.KCZER03 



D GETS UNDERFLOW TRAP CODE 
FETCH TABLE ADDRESS 



DECREMENT DEGREE COUNT IN R2<7:0> 
AND SET Z IF WE ARE DONE 



ENABLE INTERRUPTS - IS COUNT UP? 

NO: 

ARG FRAC 

ARG EXP 

ARG SIGN 

ANY INTERRUPT REQUEST? 

GOTO NEXT LOOP 

YES: THIS IS THE END 
CLEAR PSL<FPD>, CLEAR R2 



CLR R1 

GOTO SET COND CODES 



F I D floating poin14-Jan-82 
MICRO? 11(03) 14-Jan-82 15:30:16 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600.12043 
; P1W124.MCR 600.12043 MICR02 1L 
; FLOAT .MIC [600. 12043 F & D floating point : POLYF 



G 12 

Fiche 
VAX1 1/780 Microcode 



U 13E8. 001 7.001 8.01 C0.F800.0000.13E9 
U 13E9, 0801. 2000.0180. F800.1C00.13EC 
U 13EC. 0803. 803C.01F8.F800, 0084. 73ED 
U 13ED, ODOO.O03E.C1FO.2C00. 0000. 0001 

U 121C, 0014.0039.01CO.F800.0000.0EB8 
U 121E. 0000.003C.0180.F800.0000.04FA 

U 13F0. 0018.0000.1 180. FA98. 0000. 13F2 

U *3F1. 0018.0000.0180.FA98.0000.13F2 

U 13F2. 0001.003C.0180.F9B8.0000.13F3 

U 13F3. 001B.0038.2980.F980.1408.7330 

U 1330. 0014.0039.01CO.F9EO.0000.OE88 

U 1332. 0000, 003D.3DF0.2C00.1 400. CDE8 
U 1333. 0810,0038,0180.F938,0000,13F4 

U 13F4. 0018,0000, 11 80, FAFO. 0200. 002A 



D.Q-PCSV 

D_D.0XTC8YTE3.SC.Ki:. 83, Q.O 
D.DAL . SC .Q.IDCT03 ,RETURN1 



13609 ; ROUTINE TO GET PC DELTA FOR POLY 

13610 POLY. PC: 

13612 Q 0+PC.RLOG 

13613 

13614 

13615 

13616 

13617 

13618 

13619 

13620 

13621 

13622 

13623 

13624 =0* 

13625 POL Y.I NT: 

1 3626 ; 0* 

13627 Q PC.CALLC8AKUP.PC3 
13628 

1 3629 ; 1 * 

13630 J/INT.I 
13631 

13632 

13633 POL YF. FAULT: 

13634 ; 

13635 RCR33 LA-KC.43.J/POLY.FAJLT 
13636 

13637 POLYD. FAULT: 

1 3638 

13639 RCR33 LA-KC.83.J/POLY.FAULT 
13640 

13641 POLY. FAULT: 

13642 ; 

13643 RCCT73 D 
13644 
13645 
13646 
13647 
13648 

13649 =00 
13650 
13651 
13652 

13653 =10 
13654 
13655 
13656 
13657 
13658 
13659 
13660 

13661 POLY. FLOAT. FAULT.A: 

1 3662 

13663 RCSPJfcVA LA-KC.43.J/EXCPT2 



RCCTOJ KC.343. 
STATE 0(A) 



• 00 

Q PC.RCCPC.SV3 PC, 
CAlLD3AKUP.PC3~ 



;10 

Q IDCPSL3. 
STATE STATE+1. 
CALLCPXCPT13 



;11 

D_RCCT73 



2 Frame G12 Seguence 355 

: PCS 01. FPLA OE, WCS124 Page 354 



Q GETS PC 

PUSH RLOG SO PCSV REF WON'T KILL IT 



GET PC DELTA 



OEXT PC DELTA. SETUP TO SHIFT PC DELTA 



SHJFT PC DELTA, GET DEGREE FOR POLYD 



PUT PC WHERE BAKUP.PC WANTS IT AND 
GO DO IT 



GO ALLOW INTERRUPT 



Enter here with fault code in D 
DE -INCREMENT TABLE ADDRESS 



Enter here with fault code in D 
DE-INCREMENT TABLE ADDRESS 



PUT FAULT CODE WHERE Ii WILL BE SAFE 



TO VECTOR ID OF FLOATING FAULTS 
CLEAR STATE (WILL BE SET TO 1 LATER) 



SET UP PC WHERE 'BAKUP.PC" WANTS IT 
GO BACK UP PC 

RETURN HERE FROM 'BAKUP.PC" 
GET PSL INTO 

STATE=1 TO INDICATE PARAMETERS 
GO INITIALIZE FAULT 

RETURN HERE FROM *tXCPT1" 
GET FAULT CODE 



DEC STACK POINTER I GO PSH FLT CODE 



F & D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600,1204j 

; P1U124.MCR 600- 12043 

; FLOAT .MIC C600.1204D F I D floating point : POL YD 



H 12 

Fiche 2 Frame H12 Sequence 356 
VAX11/780 Microcode : PCS 01. FPLA OE. WCS124 Page 



355 



U 0385, 0803,403C. 0580. F800. 1404, 7013 
U 0OC3, 080O,0O3C,71F8.FA10. 0084. 7014 

U 1014. 0D0O.0O3C.0180.F800. 0000. 1338 

U 1338, 001 7,8015,0180, F801,0200.0E16 
U 133A, 0014,0038.01 CO, F800, 0000, 0E88 
U 1338, 0000, 003C, 0180, FA18, 0200, 1366 



F ft D floating point : POL YD' 



POL YD (75) ARG.RD. DEGREE. RU, TBLADDR.AB 
ENTER AT C.FORK WITH <RC 0. Q> HAVE ARG.RX. D HAS DEGREE. RW. 
WHEN DONE, <R0, R1> = RESULT. R2 = 0. R3 = TABLE ADDR ♦ DEG*8 ♦ 8, 

R4 = 0, R5 = 0. 
IN PROCESSING. <R0. R1> = PARTIAL RESULT, R2 = DEG. R3 = NEXT TABL5 ADDR. 

<R4, R5> = ARG. 



D D.OXTCWORDJ, 
STATE.KC.U.J/POLYD.O 



13664 .TOC 

13665 

13666 

13667 

13668 

13669 

13670 

13671 

13672 

13673 385: 

13674 POL YD 
13675 
13676 

13677 0C3: 

13678 POLYD.FPD: 

13679 ; 

13680 D RCR23.Q 0,SC KC.FFF83. 

13681 J7FL.ABS.T014 " 
13682 

13683 1014: 

13684 FL.A8S.1014: 

13686 6 DAL.SC 

13687 

13688 =00 

13689 

13690 

13691 

13692 =10 

13693 

13694 

13695 

13696 

13697 =;END 



GET DEGREE. RW 
SET POLYD FLAG 



;0 

PC&VA D.OXTCBYTEJ+PC. 
CALL,"J/SETFPD 



; SETUP TO GET PC DELTA 



.•ASSIGN THIS ADD BECAUSE PCS CALLS IT 
; PC DELTA IN DC07:003 



BYPASS SPECIFIERS 

MUST ESTABLISH A VALI^ FPD ERROR HANDLER! 



-10 ; MEM MGMT CODE COMES HERE ON READ cRRORS 

Q_PC. J/BAKUP.PC ; BACK IF PC AND CAUSE EXCEPTION 



;11 

VA_RCR33, J /POL YD. 9 



SETFPD RETURNS HERE 

GET TABLE ADDR, JUMP BACK INTO LOOP 



I 12 



ZZ-ESOAA-124.0 ; FLOAT .MIC L600, 12043 F & D floating poin*.4-Jan-82 Fiche 2 Frame 11? 
; P1U1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode 
; FLOAT .MIC [600. 1204] F I D floating point : POL YD 



PCS 01, FPLA OE, WCS124 



Sequence 357 



Page 356 



U 1013, 0019,0024,8D80,F900.0010,13F6 

U 13F6, 0810,0138,C180,3C00.4883,10B8 

U 1088. 0000, 003C. 0180. F800, 0000. 01 06 

U 1089. 0001,2E3D,C980,3D90,0100,C47E 

U 10F9, 0001,003C,0180,42F8,0000,13F8 

U 13F8, 0001,003C,C580,3E7B,0800,1348 

U 1348, 0000,003D,0180,4100,0000,OE16 

U 134A, 0014,0038,01 CO, F 800, 0000, 0EB8 

U 1348, 0010, 0038,D180,3EA0, 0000, 13F9 

U 13F9. 0000,003C.0180.FA98,0000,1238 



13696 1013: ;ASSIGN THIS ADDRESS BECAUSE PCS CALLS IT 

13699 POL YD. 0:; 

13700 LC RCCT03. 

13701 AL0.D.ANDNOT.KC.1F3, 

13702 CLK.UBCC 
137C3 

13704 ; 

13705 IDCT03 D, 

13706 D LCCRk.FLT.OPR, 

13707 St LC(EXP). 

13708 IN7RPT. STROBE, 11 
13709 

13710 =01 ****0;0 

13711 J/RSVOPR 
13712 

13714 iDCT2JJ>,FE_SC, 

13715 RCCT23 Q, 

13716 CALL, INTERRUPT. REQ?, 

13717 J/ASPC 
13718 

13719 =11****1; 

13720 RCR153 D, 

13721 DCL0NG3 CACHE 

13722 =;END 
13723 
13724 
13725 
13726 
13727 
13728 

13729 =00 
13730 
13731 
13732 
13733 

13734 =10 
13735 
13736 
13737 
13738 
13739 

13740 =;END 
13741 
13742 



IDCT13 D,LAB RCR153, 
ALU D, CHK.FtXOPR, 
VA VA+4 



;00 

DCLONG3 CACHE, 
LC RCCT03, 
CACL,J/SETFPD 



;10 

Q^PC, J/BAKUP.PC 



;11 

IDCT43 D, 
RCR43 CC 



LATCH AR6 <H> 

CHECK IF DEGREE > 31 

CLOCK IN AL'J.Z 



SAVE DEGREE 
CHECK ARG.RX FOR -0 
ARG EXP 
DEGREE > 31? 

DEGREE > 31 
RESERVED OPERAND 

DEGREE IN RANGE OF TO 31. 

T2 SAVES ARG <H>, FE SAVES ARG EXP 

RC 2 SAVES ARG <L> 

GO GET TABLE ADDR 

ASPC ALWAYS RETURNS 60 IN THIS CASE 
SAVE TABLE ADDR 
GET 1ST COEF 



T1 GETS CO <H>, LATCH TABLE ADDR 

TEST CO FOR RESERVED OP BEFORE SETTING FPD 



CO <L> 

LATCH ARG <H> 



READ ERR 

BACK UP PC AND CAUSE EXCEPTION 



SAVE CO <L> 

R4 STORES ARG <H> 



RCR3J LA 



R3 GETS TABLE ADDR 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600J2043 
: P1U124.MCR 600.12043 MICR02 U 
; FLOAT .MIC [600,12043 F 8 D floating point 



J 12 
f & D floating poin14-Jan-82 
MICR02 1L(03) H-Jan-82 15:30:16 



Fiche 2 Frame J12 



POLVD 



VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 



Sequence 358 



Page 357 



U 1238. 0003,003D.0180,FB90,0000,13E8 

U 1239. 001D.0030.0180.FA90.0081.13FA 

U 13FA. 0010,0038. C5F0.2EA8. 0000. 13FB 

U 13F8. 0C01,203C,C1F0.2C00,0118.73FC 

U 13FC. 0C01.0O3C.D1F0.2E80.00O0.13FE 

U 13FE. 0101 .203C. 0180, FA88.0000, HOE 

U HOE, 0518,0DU,0137.FA98,0200,1074 
U 1074, 0000,123C,0180,F800,0000.1092 
U 1076. 0000. 143C, 0180, F800. 0000, 1351 

U 1351. 001C. 2014, 0180, FA98, 0200. 1412 
U 1353, 0800,003C, 0180, FA20, 0000, 1413 



13743 =0 

13744 

13745 

13746 

13747 

13748 

13749 

13750 

13751 =;END 

13752 

13753 

13754 

13755 

13756 

13757 

13758 

13759 

13760 

13761 

13762 

13763 

13764 

13765 

13766 

13767 

13768 

13769 

13770 

13771 

13772 

13773 

13774 =10* 

13775 

13776 

13777 

13778 

13779 =;END 

13780 

13781 =*01 

13782 

13783 

13784 

13785 

13786 

13787 =;EN" 

13788 



ALU 0(A). 

LC RCCT2J6R1 ALU, 

CAL1.J/P0LY.PC 



SC FE. 
R[R23_D.OR.Q 



RCR53 LC, 
<UD[T13 



FE Q(EXP).CLK.U8i:, 
D_Q,Q_IDCT03 



RCR03 D, 
D_Q,Q_ID[T43 

RCR13 Q, 
DJ).lEFT2, SI/ZERO 



RCR33RVA LA-HCC.83, 
DD. LEFT, SI/ZERO, 
SSN/CLR.SD+SS, 
D.NE.O? 

• 

EALU.Z?,J/P0LYD.4 



;1 

SC.GT.O? 



;0 

RCR33 LA+D, VA ALU, 
J/POL7D.8 

;1 „>. 

D_RCR43,J/POLYD.10 



CLR RUNNING PROD <L> 
LATCH ARG <L> 
GOTO GET PC DELTA 



SC GETS BACK ARG EXP 

R2 STCWES PC DELTA, DEGREE 



R5 STORES ARG <L> 
GET CO <H> 



FE GETS CO EXP 
GET BACK DEGREE 



RO STORES CO <.'1> 

D GETS DEGREE, Q GETS CO <L> 



STORE CO <L> AS RUNNING SUM <L> 
DEGREE * 4 



SET UP TABLE ADDR IN R3. VA 
DEGREE * 8 

CLEAR SS FOR EALU BRANCH 
DEGREE .NE. 0? 

DEGREE .EQ. 
IS CO = 0? 

DEGREE > 
ARG = 0? 



ARG = 

ADVANCE STATE TO LAST COEFFICIENT 



ARG .NE. 
ARG <H> 



U 1092, 0OO3,003C,0180,FAA0,0000,143C 
U 1096, 0OO3,0O3C,0180,FA80,00O0,1411 
U 1411, 00O3,003C,0180,FA88,0000,1092 

U 1412, 001 8, 8038,0580, FA90, 0000, 1366 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600.12043 

; P1W124.MCR 600,12043 

; FLOAT .MIC [600,12043 F I D floating point : POL YD 



K 12 



F & D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-32 75:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, UCS124 



Fiche 2 Frame K12 



Sequence 359 



Page 358 



U 1366, 08O0.003C.0180,FA20,0000,1413 
U 1367. 0000,003C,0180,F800,0000,121C 

U 1413, 0001 ,003C. 0180, F980, 0000,1415 
U 141E. 0000, 003C, 01 CO, FA28, 0000. 1422 



CO NE 

CLEAR R4, GO CLR R5 6 R2 & EXIT 

CO .EQ. 
ZERO RESUL1<H> 



ZERO RESULT<L> AND GO CLEAN UP 



13789 =*01* 

1 3790 POL YD . 4 : ; 

13791 RCR43 0, J/P0LYD.35 
13792 

1 3793 ; 1 

13794 RCR03 
13795 

13796 ; 

13797 RCR13 0, J/P0LYD.4 
13798 
13799 

1 3800 POL YD . 8 : ; 

13801 RCR23 KC.13, DT/BYTE 
13802 
13803 

13804 ; POLYD LOOP BEGINS HERE 
13805 

13806 =110 

1 3807 POL YD . 9 : ; 

13808 D RCR43.J/POLYD.10 
13809 

13810 ;1 — ; YES: INTEKRUPTS 

13811 J/POLY.INT ; INTRUPT ENTRY TO CLR TP AND BACKUP PC,R'S 

13812 =;END 
13813 

1 381 4 POL YD . 1 : ; ; 

13815 RCCT03 D ; ARG <H> 
13816 

13817 ; ; 

13818 Q RCR53 ; ARG <L> 
13819 



CONTINUATION OF ARG=0 SPECIAL CASE CODE 
TABLE ADDR I DEGREE NOW INDICATE LAST COEF 
FALL INTO MAIN LOOP FOR 1 ITERATION 



NO: NO INTERRUPTS 
ARG <H> 



U 1422, 0800,003C.0180,FAOO,0000,1423 

U 1423, 0001,003C, 0580, F808, 1404, 7280 

U 1280, OCOO,003D,6580,F9BO,0084,72C8 

U 1290, 0000, 003C0180.4218, 0000, 142A 

U 1292, 051B,0014,0428,F800,0084,8293 

U 1293, 0C01,143C,C1E0.3D98, 0100. 1371 



L 12 
F t D floating poinK-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 



Z2-ES0AA-I24.0 ; FLOAT .MIC [600,120411 

; F-1U124.MCR 600,1204] 

; FLOAT .MIC [600,12043 F & D floating point : POLYD 



Fiche 2 Frame L12 Sequence 360 

Microcode : PCS 01, F°LA 0E, WCS124 Page 



359 



U 142A, 0001,003C,01C7,F803.0818,7428 

U 142B, 0000, 003C, 01 80, 4000, 0000,142C 

U 142C, 0018, 1214, 0180, FA98, 0000, 10EA 

U 10EA. 0001, 003C, 0180, FA88,0000, 1253 

U 10EE. 0F03,0O3C,01F8,FA80, 0000. 1253 



D.RCR03 

ALUJ), STATE K[. 13, 
LAB_R1&RC[T13_ALU 



D Q,SC_KL\103, 
Rt[T63 LA, 
CALL,J7MULD.02 



13820 

13821 

13822 

13823 

13824 

13825 

13826 

13827 =0**00 

13828 

13829 

13830 

13831 

13832 =1**00 ;00 

13833 DCL0NG3 CACHE, 

13834 LAB RCR33, 

13835 J/P0LY0.12 
13836 

13837 =1**10 ;10 

13838 ALUJHKC.13, Q Q.LEFT, 

13839 D D.LEFT, SI7DIVD, 

13840 SC SC-KC.13 
13841 

1 3842 ; 1 1 

13843 IDCT03.D, RCCT33.D, 

13844 D Q, Q D, 

13845 FE St, 

13846 5C?, J/P0LYD.13 

13847 =;END 
13848 

13849 POLYD. 12:;- 

13850 

13851 

13852 

13853 

13854 

13855 

13856 

13857 

13858 

13859 

13860 

13861 

13862 

13863 =*01* ;0- 

13864 

13865 

13866 

13867 

13868 

13869 

13870 =;END 

13871 



ALUJ), Q ALU, 

CHK.FLT.OPR, 

EALU D(EXP),CLK.U8CC, 

SGN/tiR,SD+SS, 

VA VA+4 



DCLONG3_CACHE 



PART PROD <H> 



SET POLYD FLAG FOR MULD 
RC 1 GETS PARTIAL PROD <H> 



D GETS PROD <L> 

SETUP FOR MULD 

CALL MULD RTN WITH STATE=1 AS FLAG 

PARTIAL PROD = 
GET NEXT COEF <H> 
LATCH TABLE ADDR 



.25 <= PARTIAL PROD FRACT < .5 
SHIFT FRACTION 1 BIT TO THE LEFT 

AND ADJUST EXPONENT TO MATCH 

.5 <= PARTIAL PROD FRACT <1.0 

SAVE PROD FRACT<H> 

SWAP HALVES SO WE CAN SAVE LO PART 

SAVE EXP 

TEST FOR MULTIPLY OVERFLOW 



PARTIAL PROD = 

MOVE RESULT<H> TO Q THRU ALU 

CHECK FOR -0 

CHECK FOR EXP 

CLEAR SS FOR EALU BRANCH 

INCREMENT TABLE ADDR 



; RESULT <L> - DON'T BUMP R3 HERE, MAY FAULT 



RCR33 LA+KC.83, 
EALU.7? 



RCR13 D, 
J/POL7D.2I 



;1 

RCR03 0, Q 0, 0, 
J/POL7D.21 



; INCREMENT TABLE ADDR TO POINT TO NEXT COEF 
; RF«=ULT = 0? 

•; NOT 

; STORE RESULT <L> 
; GO STORE RESULT<H> 

RESULT 

RESULT IS A TRUE 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600.12043 

; P1W124.MCR 600.12043 

; FLOAT .MIC C600, 12043 F & D floating point 



M 12 
F I D floating poin14-Jan-82 
MICR02 1L(03) 14-Jan-82 15:30:16 



Fiche 2 Frame M12 



POLYD 



VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 



Sequence 361 



Page 360 



U 1371. 0821 ,203C,C980,3E 18. 0000, 142D 

U 1373. 0821.203C.C980.3E18,0000,142D 

U 1375. 0821 .203C.C980.3E 18. 0000, 142D 

U 1377. 0000.003C. 7580. F800. 1404, 7371 



U 142D, 0008. 0038. 01 80. A 180, 0000, 7430 

U 1430, 0001, 003C, 01 E0,F98B.0800. 1431 

U 1431, 0000,003C,0180,40C;, 0000,1432 

U 1432, 001 8, 001 4. 01 80, FA98, 0000, 1358 



13872 =001 

13873 POLYD. 13: ;00 

13874 IDCT23 D, ALU 0, 

13875 D ALU. LEFT, Sl/ZERO, 

13876 CAB RCR33, J/POLYD.14 
13877 
13878 
13879 
13880 
13881 
13882 
13883 
13884 
13885 
13886 
13887 
13888 
13889 
13890 
13891 
13892 

13893 

1 3894 POL YD . 1 4 : ; 

13895 EALU FE.RCCTOJ PACK.FP. 

13896 DCL0NG3 CACHE 
13897 

13898 ; 

13899 RCCT13 D, CHK.FLT.OPR, 

13900 D, V* VA+4 
13901 

13902 ; 

13903 DCL0NG3 CACHE 
13904 

13905 

13906 RCR33 LA+KC.83 



;01 

IDCT23.D, ALU 0, 
D ALU. LEFT, Sl/ZERO, 
LAB_R[R23, J/POLYD.14 

IDCT23 D, ALU Q, 
D ALU. LEFT, Sl/ZERO, 
rA8_RCR33. J/POLYD.14 

STATE JCC. 203, J/POLYD.13 



TEST FOR MULTIPLY OVERFLOW 
PARTIAL PROD .NE. 0, EXP = 
SAVE PROD FRAC<L>, 
PUT PROD FRAC<H> IN D NORMALIZED 
LATCH COEF TABLE ADDRESS 

PROD .NE. 0. < EXP < 100 
SAVE PROD FRAC<L>, 
PUT PROD FRAC<H> IN D NORMALIZED 
LATCH COEF TABLE ADDRESS 

PROD .NE. 0, EXP < 

SAVE PROD FRAC<L>, 

PUT PROD FRAC<H> IN D NORMALIZED 

LATCH COEF TABLE ADDRESS 

PROD .NE. 0. EXP > 100 (OVERFLOW) 
SET FLAG SAYING THAT PRODUCT OVERFLOWED. 
THIS FLAG IS NECESSARY BECAUSE ADDD 
WILL LOSE TRACK OF THE 9TH EXPONENT BIT 
DURING ITS CALCULATIONS (SIGH) 



SAVE PACKED PROD<H>, IGNORING POSS. UNDRFLOW 
READ NEXT COEF<H> 



CHECK FOR -0 
INCREMENT TABLE ADDR 



READ COEF<L> - DON'T BUMP R3 rET, MAY FAULT 
INCREMENT TABLE ADDR 



ZZ-ES0AA-124.0 ; FLOAT .MIC [600,12043 

; P1W124.MCR 600.1204] " 

; FLOAT .MIC C600, 12043 F & D floating point 



F ID floating poin14-Jan-82 
MICR02 1LC03) 14-Jan-82 15:30:16 



POL YD 



N 12 

Fiche 
VAX1 1/780 Microcode 



2 Frafn N12 Seguence 362 

: PCS Oi, FPLA OE, WCS1Z4 Page 361 



U 1358. 0001 ,003D. 0580. F9B0, 1404, 288E 

U 1359. 0000, 0O3CC9F4.2C00, 0000. 1433 

U 135A, 0018, 0038. 1D80.FAFS. 0190.8241 

U 1241, 0018, H01.1D80.FA78. 0082, 1395 

U 1251, 0000, 163C, 0180, F800,0000, 1085 

U 1253, 0000, 163C. 01 80, F 800, OO0O,123C 

U 1255, 0000, 163C. 01 80, F 800, 0000, 1081 

U 1257, 0818, 0038, 0180. FA18, 0000, 13F1 



. oo 

STATE STATE. OR.KC. 13, 
RCCT63.D . CALL , J/UNPK 

. 01 

SD SS.Q IDCT23, 
J/Pn.YD.16 

R. #1153 KCSC3, 

fi SC-FE.SC SC-FE, 

CLR.UBCC " 



13907 =00 

13908 

13909 

13910 

13911 

13912 

13913 

13914 

13915 

13916 

13917 

13918 

13919 = 

13920 

13921 =0*001 ; 0*001 

13922 ALU 0-KCSC3.SC ALU, 

13923 LA8 RCR153. * 

13924 SC.5T.07.CALLCP0LYD.A3 
13925 

13926 
13927 

13928 =1*001 ; 1*001 

13929 STATE57.J/POLYD.15 
13930 

13931 POL YD. 21: 

1 3932 ; 1 *01 1 

13933 STATE57.J/POLYD.17 
13934 

1 3935 ; 1 * 1 01 

13936 STATE57.J/POL YD. 24 
13937 

1 3938 ; 1 * 1 1 1 

13939 D KC.83 

13940 Lfe,R[R^],J/P0L YD. FAULT 



CALL CONSTRAINT BLOCK 

SET POLYD FLAG A6AIN FOR ADDD 

SAVE CO£F<L> AND UNPACK COCF. 

IT IS 
PROD a> 



NOT 

SAVE SC WHILE WE COMPUTE EXP DIFF 

6ET EXPONENT DIFFERENCE 

FOR COMPARE EXP'S 



CALL SITE FOR ADDD 

GET NEG OF EXP DIFF IN CASE ITS POS 

LATCH SAVED SC FOR RELOADING 

GO ADD, NEGATING EXP DIFF IF IT IS POS 



SC.eq.O, UNDERFLOW OR OVERFLOW 
DEPENDING ON 01' TLAG 



5C.eq.C01 to FF3, OK OR OVERFLOW 
OVERFLOW, DEPENDING ON OV FLAG 

SC.lss.O, UNDERFLOW OR OK 

UNDERFLOW OR OK, DEPENDING ON OV FLAG 

SC.gt.rF, OVERFLOW 

D GETS OVERFLOW TRAP CODE 

FETCH TABLt ADDRESS 



B 13 



ZZ-ESOAA-124.0 ; FLOAT .MIC C600, 12043 F ft D floating poinK-Jan-82 Fiche 2 Frame B13 Seguence 363 

; P1U124.MCR 600.12043 MICR02 11(03) H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA 0E, WCS1 24 Page 362 

; FLOAT .MIC C600. 12043 F ft D floating point : P0LYD 



U 1395, 0000. 123C.C9F 0,2008.0082, 01 82 
U 1397, 0000. 123C.C9F0. 2008.0182,0182 

U 1433, 0C10. 0038. 7DC0.F918, 0185, 7438 
U 1438, 0500.003C4128.F800.0000.10A1 

U 10A1, 0Cl9,0015.41C0,F800,0010,03fC 

U 1081, 0000,003D.3DFO,2COO,0000,12AE 
u 1083, 0001 ,203C.01E0,FA80,0000, 1439 

U 1085, 0000, 003D.3DF0,2C00. 0000, 12AE 

U 1087, 0818, 0038, 0180, FA18, 0000, 13F1 

U 108D, 0003, D03C.19F8.FA80, 1404, 7439 

U 108F, 0818, 0038, f-580,FA18, 0000, 13F1 



13941 =101 

1 3942 POL YD .A :; 1 J 

13943 LC RCCT13. SC LA, 

13944 QTDCT23, 

13945 EAlU?, J/ADDD.10 
13946 

13948 LC RCCT13, SC LA, 

13949 Q IDCT23, 

13950 FE SC. EALU?, J/ADDD.10 
13951 

13952 

1 3953 POL YD . 1 6 : ; 

13954 D Q,Q RCCT33. 

13955 St FET 

13956 FE~KL".183 
13957 

13958 ; 

13959 D D.LEFT,Q Q.LEFT, 

13960 S7/ASHL.KCT803 
13961 

13962 =00001 ; 00001 

13963 D Q.Q D-HfC.803, 

13964 CLK.UBCC, 

13965 CALL,J/PACKD 

13966 =10001 

13967 POL YD. 24: 

1 3968 ; 1 0001 

13969 Q IDCPSL3.CALLCPSLFU.A3 
13970 

1 3971 ; 1 001 1 

13972 R[R03 Q.Q D.J/POL YD. 22 
13V/3 " " 

13974 P0LYD.15: 

1 3975 ; 1 0101 

13976 Q IDCPSL3,CALLCPSLFU.A3 
13977 

1 3978 ; 1 01 1 1 

13979 D Kt 83 

13980 Lfe RCR$3.J/POL YD. FAULT 
13981 

1398^ =11101 ; 11 101 
13983 
13984 
13985 
13986 
13987 
13988 



SUBR TO TALK TO ADDD - EXP DIFF <=0 ENTRY 
LATCH PACKED C0EF<H>, SET EXP = DST EXP, 
PUT PR0D<L> IN Q WHERE ADDD EXPECTS IT 
DISPATCH INTO THE ADDD ROUTINE 

EXP DIFF > ENTRY 

LATCH PACKED CO£F<H>, SET EXP=DST EXP, 
PUr PROD<L> IN Q yHERE ADDD EXPECTS IT 
NEGATE DIFF ft DISPATCH INTO ThE ADDD ROUTINE 



COME HERE WHEN COEFFICIENT = 
SET FOR PACKING DOUBLE RESULT 
SC GETS EXP 
SET 24. FOR PACKING DOUBLE RESULT 



DOUBLE SHIFT <Q,D> 



** THIS CONSTRAINT USEr FOR MANY THINGS 
RESULT FRACS IN <D,Q> 
CHECK IF CARRY 
CALL PACK SUBRT 



RLR03 0, STATE Kl7ER03,0 0, 
J/P0L7D.22 



; 11 11 1 

D KC.A3, 

LAB RCR33,J/P0LYD.FAULT 



RESULT UNDERFLOW 

GO SEE IF PSL<fu> IS SET 

RESULT OK 

STORE RESULT <H>, Q GETS RESULT <L> 



RESULT UNDERFLOW 

GO SEE IF PSL<fu> IS SET 

RESULT OVERFLOW 

D GETS OVERFLOW TRAP CODE 

FETCH TABLE ADDRESS 

RETURN HERE IF PSL<fu>.eq.0(SC.eq.O) 
PRETEND IT DIDN'T HAPPEN 



RETURN HERE IF PSL<fu>.c*q.1 (SC.ne.O) 
D GETS UNDERFLOW TRAP CODE 
FETCH TABLE ADDRESS 



C 13 



ZZ-ESOAA-124.0 ; FLOAT .MIC [600.1204] F K b floating poin14-Jan-82 
; P1W124.MCR 600,12041! MICR02 1L(03) H-Jan-82 15:30:16 
; FLOAT .MIC C600.120A3 F & D floating point : POLYD 



Fiche 2 frame CI 3 



Sequence 364 
VAX11/780 Microcode : PCS 01, fp LA 0E, WCS124 Page 363 



U 123C, 0001, 203C19E0.FA80, 1404. 7439 

U 123E, 0818. 0038,0180, FA18. 0000. 13F1 

U 1439, 0000. 003C J.FA10,0000,143A 

U 143A, 001 8. 8000, 0580. FA93. 001 0.1 438 

U 143B, 0001. 213C. 0180. FA88. 4000, 124C 

U 124.C, 0000. 0E3C, 0180. F800,0000. 1366 

U 124D, 0018,0038,1 980, FAAO, 0000J43C 

U 143C, 0018,0038, 1980, FAA8, 2000J43D 

U 143D. 0018. 0038, 1980, FA90, 0081. 12C2 



13989 =**0* 

13990 POLYD. 17: 

13991 ;**0* 

13992 RCR0J Q.Q D, 

13993 STATE jaZER03,J/POL YD. 22 
13994 

13995 ; i* 

13:96 D >X.81. 

13997 Lfe RCR3J.J/P0L YD. FAULT 

13998 

13999 POL YD. 22: 

14000 ; 

14001 LA8 RCR23 
14002 

14003 POLYD. 26: 

14005 VA VA+4, 

14006 RCR23 LA-KC.U.DT/BYTE, 

14007 CLK.UBCC 
14008 

14009 

14010 

14011 

14012 =0 

14013 

14014 

14015 

14016 

14017 

14018 POLYD. 35: 

14019 ; 

14020 CLR.FPD,RCR53 KCZERO.I 
14021 
14022 

14023 RCR23 KCZER03. 

14024 SC FET 

14025 SU5/SPECJ/P0.Y.C 
14026 
14027 . REGION/0000, OFFF 



; BRANCH CONSTRAINT FOR STATE<5> 

; SAVE HIGH RESULT, Q GETS LO RESULT 
; CLEAR ALL FLAGS 



D GETS OVERFLOW TRAP CODE 
FETCH TABLE ADDRESS 



R[R1J_Q,INTRPT. STROBE, Z? 
INTERRUPT. REQ?,J/POL YD. 9 



:1- 



RCR43.KCZER0J 



INr COEF ADDR 
DECREMENT DEGREE COUNT 
SET Z IF WE ARE DONE 



STORE RESULT<L>, ENABLE INT, DONE? 

NO: 

GOTO NEXT LOOP 

YES: 

CLR R4 (ARG <H» 



CLR PSL <FPD> AND ARG<L> 



CLR DEGREE— UNDERFLOW FLAG— PC DELTA 

GET BACK EXP 

GOTO SET COND CODES 



.-Lower 4k for PCS 



D 13 

ZZ-ES0AA-124.0 ; FLOAT .MIC C600. 12043 F & floating poin14-Jan-82 Fiche 2 Frame D13 Sequence 765 
P1U124.MCR 600,12043 M1CR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 364 
FLOAT .MIC C600.12043 F & D floating point : POLYD 



1402?; This page intentionally left blank. 



E 13 
ZZ-ESOAA-124.0 ; INIT2 .MIC [600,12043 INIT2.MIC 14-Jan-82 Fiche 2 Frame E13 Seguence 366 
; P1U124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 365 
; INIT2 .MIC C600. 12043 INIT2.MIC 

14028 .TOC "INI T2. MIC" 

14029 .TOC "Revision 0.2" 



14032 .NOBIN 

14033 .TOC 
14034 

14035 ; 00 Start of history 
14036 



14U30 
14031 



P. R. Guilbault 



Revision History' 



; 14037 .BIN 
;14038 .NOLIST 



.-Disable listing of PCS code for quickie assemblies 



F 13 

ZZ-ESOAA-124.0 ; INIT2 .MIC C600J20AD Initialize microcodH-Jan-82 Fiche 2 Frame F13 Sequence 367 

; P1W124.MCR 600-12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 Page 

; INIT2 .MIC C600.1204D Initialize microcode INITIALIZE MACHINE ROUTINE 



366 



U 010J, 1000, 003C6180, 0800, 0084. 6984 

U 0984, 0803,001 C,D5F8,F800,0084, 6985 
U 0985, OD00,O03C, 0180, F800, 0000,01 E8 

U 01 E8. 0000, 003D, 7580, 3C00, 0000, 08D0 



14039 
14040 
14041 
14042 
14043 
14044 
14045 
14046 
14047 
14048 
14049 
14050 
14051 
14052 
14053 
14054 
14055 
14056 
14057 
14058 
14059 
14060 
14061 
14062 
14063 
14064 
14065 
14066 
14067 
14068 
14069 
14070 
14071 



.TOC 



Initialize microcode INITIALIZE MACHINE ROUTINE' 



************************ 

* 

INITIALIZE MACHINE * 

* 
************************ 

THIS ROUTINE IS USED TO INITIALIZE THE REQUIRED ID-REGISTERS, 

T8UF, CACHE, AND OPTIONAL ACCELERATOR. AFTER COMPLETING THESE 

TASKS, THIS ROUTINE ENTERS A WAIT LOOP, WAITING FOR 

THE CONSOLE TO INITIATE EITHER A WARM START OR COLD START 

PROCEDURE. 

.•INITIALIZE ID REGISTERS 

100: 
SYS. INI T : 

sc kcfj. 

STOP. 18, MCT/MEM.NOP 

6 NOT. MASK, Q 0, 
SZ_KL.61 

D_DAL.SC 

=0100* ;0100* 

IDCMAINT3 D, 
CALL. J/WPR.10A 



15 TO SC TO CONSTRUCT BIT MASK 

STOP IBUFFER 

CONSOLE MODE SET, SO IF ERROR GO TO IT 



A "1" TO D<15> POSITION 
SETUP SC FOR LEFT SHIFT OF 6 



SHIFT A 'T'BIT INTO POS<21> 



SET SBI ENABLE INVALIDATE BIT 
GO AND CLEAR TBUF 



G 13 
ZZ-ESOAA-124.0 ; INIT2 .MIC C600, 12043 Initialize microcod14-Jan-82 Fiche 2 Frame G13 Seguence 368 
; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E» WCS124 Page 
; INIT2 .MIC C600. 12043 Initialize microcode INITIALIZE MACHINE ROUTINE 



367 ! 



U 01F8, OF 1 8, 0038,1 980, F 800, 0284. 6487 



U 0483, 0F0O.0O3C.5DF0.2C00. 0000, 0988 



U 0487, 0000, 0O3C, 0180, 9000, 0080. C986 



U 0986. 0000. 0C3C. 0180. F803, 0000. C483 



14072 
14073 
14074 
14075 
14076 
14077 
14078 
14079 
14080 
14081 
14082 
14083 
14084 
14085 
14086 
14087 
14088 
14089 
14090 
14091 
14092 
14093 
14094 
14095 
14096 
14097 
14098 
14099 
14100 
14101 
14102 



************************ 



CLEAR CACHE ROUTINE * 

* 
************************ 



THIS ROUTINE IS USED TO RESET THE CONTENTS OF CACHE. 
THIS IS DONE BY ISSUING THE INVALIDATE CACHE MICRO ORDER 
TO EACH AND EVERY CACHE TAG LOCATION (1024). BOTH 
GROUPS, GO & 61, ARE RESET TOGETHER. 



=1100* ;1100* 

SC KCZER03, 
VA KL7ER03, 
J/T.CACHE.5 



D_0, 



=011 

I. CACHE. 3: 

6 0, 

Q IDCACC.CS3, 

J7CLR.ACC 

I. CACHE. 5: 

; 111 

CACHE. INVALIDATE, 
SC SC+1 



VA VA+4. 
SC?NE.0?,J/I.CACHE.3 



CLEAR SC AND D-REGS 
INITIALIZE VA TO ZERO 
GO t WRITE INVALIDATES 



*** LOOP FINISHED *** 

CLEAR D-REG 

GET ACCELERATOR'S CONTROL/STATUS REG 



*** CONTINUE LOOP *** 

INVALIDATE GO & G1 TAG ADDRESSED BY VA 

INCREMENT COUNT 



INCREMENT 

CHECK TO SEE IF ALL 1024 WRITTEN 



H 13 

ZZ-ESOAA-124.0 ; INIT2 .MIC C600, 12043 Initialize microcod14-Jan-82 Fiche 2 Frame H13 Seguence 369 

; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 

; INIT2 .MIC C600, 12043 Initialize microcode UNITIALIZE MACHINE ROUTINE 



368 



U 0988. 001 9. 2034. 61 80. F 800, 001 0,0989 



U 0989. 0000. 013C.5D80.3C00, 0000. 05AC 



U 05AC, 0000, 008C, 0080. F800. 0000. 04C6 



U 05AD, 0000.Ou3C.0180.F800.0000.098A 



u 04C6. 0818. 0638. 4580, F800, 0000, 04C6 



U 04C7, 0000, 0O3C.5D80.3C00, 0000. 098A 



14103 
14104 
14105 
14106 
14107 
14108 
14109 
14110 
14111 
14112 
14113 
14114 
14115 
14116 
14117 
14118 
14119 
14120 
14121 
14122 
14123 
14124 
14125 
14126 
14127 
14128 
14129 
14130 
14131 
14132 
14133 
14134 
14135 
14136 
14137 



**************************** 



RESET ACCELERATOR ROUTINE * 



**************************** 



THIS ROUTINE CHECK TO SEE IF AN OPTIONAL ACCELERATOR 

IS ON THIS MACHINE, AND IF SO ISSUES A RESET TO 

IT. IT THEN WAITS UNTIL THE ACCELERATOR ISSUES AN ACCELERATOR 

SYNC, INDICATING THAT THE ACCELERATOR HAS INITIALIZED ITSELF. 

THE ACCELERATOR CONTROL AND STATUS REGISTER IS ALSO RESET. 



CLR.ACC: 



=0 



=110 
I.ACC. 



ALU Q.AND.KC. F3, 
CLKTUBCC 



'0CACC.CS3J), 
Z? 

.0 

TRAP.ACCm, 
J/I.ACC.05 

J/I.ACC.07 

05: 

; 1 10 

D KC. 80003, 

AtC. SYNC?, J/I.ACC.05 

.,11 

IDCACC.CS3 D 



TEST TO SEE IF THERE IS AN ACCELERATOR 
CLOCK ALU<Z> FOR TEST 



RESET ACCELERATOR'S CONTROL & STATUS REG 
IS AN ACCELERATOR ATTACHED? 

*** ACCELERATOR IS INSTALLED *** 

TRAP ACCELERATOR TO ITS INT'i IALIZATION 

ROUTINE 

*** NO ACCELERATOR **** 



*** no *** 

SETUP ENABLE BIT FOR ACCEL 

HAS ACCELERATOR INITIALIZED ITSELF? 

*** YES *** 
ENABLE ACCELERATOR 



ZZ-ESOAA-124.0 ; INIT2 .MIC [6O0.12OAD 



; P1U124.MCR 600-1204D 
; INIT2 .MIC C600.120A3 



I 13 

Initialize microcod14-Jan-82 



Fiche 2 Frame 113 



MICR02 1L(03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 
Initialize microcode INITIALIZE MACHINE ROUTINE 



Sequence 370 



Page 369 



U 098A. 0818,0038,1 180. F 800, 0000, 098C 

U 098C. 0OOO.OO3C,3180,3CO0,O000,098E 

U 098E. 0818,0038,9180, F800, 0000. 0994 

U 0994, 0819.0014.1 180. F800.0000. 0996 

U 0996. 0B1 8.0038.1 980. F801 .0200,0998 
U 0998, 0000.003C.3D80.3C00.0000.0999 

U 0999, 081B.001C.9980.F800.0000.099C 
U 099C. 0800,003C,0180,F800,0000.099E 
U 099E. 0001,003C,0180,F9F8,0000,09AO 

U 09A0, 0818.0038.0D80.F800.0000.039F 



14138 I.ACC.07 
14139 



DJCt.43 
IDCCESJJ) 
DJCC.1F00] 
D D+KC.43 



14140 
14141 
14142 
14143 
14144 
14145 
14146 
14147 
14148 
14149 
14150 
14151 
14152 
14153 
14154 
14155 
14156 
14157 
14158 .-SETUP CONSTANT FOR MASKING OUT PTE MBZ FIELD IN 6ETPTE ROUTINE 

D_N0T.KC.EO033 



D D.SUAP, 
PtfcVAKCZERO] 



IDCPSLJD 



VALUE TO SET ASTLVL 
SET ASTLVL TO 4 
6ET 1F TO SET IPL TO 31 
BIT TO SET 'IS* 



FINISH SETUP OF NEW PSL 
RESET PC TO ZERO 



SET IPL=31 AND IS=1 



14160 
14161 
14162 
14163 
14164 
14165 
14166 
14167 
14168 
14169 
14170 
14171 
14172 



DJ>.SWAP 
RCCPTE.MASKJ D 



D KC.3J. 
J7HALT.ERR 



GET CONSTANT FOR PTE MBZ FIELD 

ALIGN CONSTANT WITH MBZ FIELD 

SETUP AND LEAVE IN RC REG FOR LATER USE 



WARM/COLD START CODE TO D-REG 
HALT MACHINE 



.LIST 



;Re-enable full listing 



J 13 
ZZ-ES0AA-124.0 ; INIT2 .MIC C600, 12043 Initialize microcodU-Jan-82 Fiche 2 Frzne J13 Sequence 371 
; P1U124.MCR 600.1204] MICR02 1L(03) H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 370 
; INIT2 .MIC C600.1204] Initialize microcode INITIALIZE MACHINE ROUTINE 



K172; This page intentionally left blank. 



K 13 

ZZ-ESOAA-124.0 ; ASPC .MIC C600.120A3 ASPC.MIC 14~Jan-82 Fiche 2 Frame K13 Seguence 372 

; P1U124.MCR 600.12043 MICR02 iL(03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, C PLA 0E, yCS124 Page 371 

; ASPC .MIC C600. 12043 ASPC. MIC 

14173 .TOC "ASPC. MIC" 

14174 .TOC "Revision 1.1" 

14175 ; P. R. Guilbault 
14176 

Revision History" 

Remove absolute jumps. 
Start of history 

; 14183 .BIN 

;14184 .NOLIST ,-DisabLe listing of PCS code for quickie assemblies 



14177 


.NOBIN 


14178 


.TOC 


14179 




14180 


; 01 


14181 


; 00 


14182 





ZZ-ESOAA-124.0 ; ASPC 
; P1U124.MCR 600.12043 
; ASPC .MIC C600. 12043 



.MIC C600, 12043 

MICR02 1L(03) 
I-stream decode 



L 13 

I -stream decode forH-Jan-82 Fiche 2 Frame L13 Sequence 373 

14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 
forks : Address Specifier Evaluation 



372 



U 047E, F000,003F.01F0,F847,0000,0400 



U 0400, 0000,003C,0180,F800, 0000, 0001 



U 0401, 0000,003C,0180,F800,0000,0001 



U 0402, 0O00,O03C, 01 80, F 800, 00^0, 0001 



U 0403, 0000,003C, 01 80, F 800. 0000, 0001 



U 0404, 081 8, 001 A, 19E0,F 808,0000.0061 



U 0424, 0818, O01A,19E0,F8D8, 0000. 0061 



U 0405, 0000,003C, 0180. F800, 0000.0001 



U 0406, 0818,001A,19EO,F8D8,0000,0061 



U 0426, 0818, 001A,19E0,F8D8. 0000, 0061 



U 0407, 0000, O03C, 0180, F800, 0000,0001 



14185 
14186 
14187 
141C8 
14189 
14190 
14191 
14192 
14193 
14194 
14195 
14196 
14197 
14198 
14199 
14200 
14201 
14202 
14203 
14204 
14205 
14206 
14207 
14208 
14209 
14210 
14211 
14212 
14213 
14214 
14215 
14216 
14217 
14218 
14219 
14220 
14221 
14222 
14223 
14224 
14225 
14226 
14227 
14228 
14229 
14230 
14231 
14232 
14233 
14234 
14235 
14236 
14237 
14238 
14239 



.T0C 



I-stream decode forks : Address Specifier Evaluation' 



; Control passes to this point by CALUJ/ASPC and returns to the call site "or' 

; 60, if the specifier is valid, or the call site "or" 61 if the specifier is 

; register mode, which will be invalid unless the soecifier is a field source. 

; At the return, Q contains the longword that was in at the entry, D and VA 

; contain the address implied by the specifier. 



47E: 
ASPC: 



Q 18. DATA, 

Ufa R(SPI). 

CLR.I8.COND, 

PC PC+N. 

MCT/ALLOW.IB.READ, 

SUB/SPEC, J/ASPC.8 



400: ; 

ASPC. 8: J/RSVM0D 



401: 
402: 
403: 
404: 



424: 



405: 



406: 



426: 



407: 



J/RSVW0D 
J/RSVW0D 
J/RSVM0D 



Q D. 

R7PRN) LA+KCZER03.RL0G, 

D ALU. 

RETURN61 



00, 

RTPRN) LA+KL7ER0J.RL0G 

D ALU." 

RETURN61 



J/RSVM0D 



D, 

R7PRN) LA+KCZEROJ RL0G, 

D ALU.RETURN61 



Q D. 

R7PRN) LA+KCZEROJ. RL0G, 

D ALU,RETURN61 



J/RSVM0D 



HANG HERE IF IB MUST STALL 

GET SPECIFIER DATA FROM ISTREAM 

LOAD LATCHES FROM BASE SPECIFIER 

DISCARD BASE OPERAND SPECIFIER 

STEP PC OVER IT 

LET IB GET NEZDED DATA 

EVALUATE THE SPECIFIER 



S*# SHORT LITERAL NOT LEGAL AS ASRC 



RESERVED MODE 



QUAD/DOUBLE SHORT LITERAL 



RESERVED MODE 



REGISTER 

RECORD REGISTER NUMBER 

GET REGISTER CONTENTS TO D 

RETURN IT IN CASE FIELD SOURCE 



WRITE REGISTER 

RECORD REGISTER NUMBER 

GET REGISTER CONTENTS TO D 

RETURN IT IN CASE FIELD SOURCE 



QUAD REGISTER 

RECORD REGISTER NUMBER 

RETURN CONTENTS TO CALLER 



WRITE QUAD REGISTER 
RECORD REGISTER NUMBER 
RETURN CONTENTS TO CALLER 



ILLEGAL QUAD REG 



ZZ-ESOAA-124.0 ; ASPC .MIC [600. 12043 



; P1U124.MCR 600, 1204 J 
; ASPC .MIC [600,1204:1 



M 13 
I-stream decode for14-Jan-82 



Fiche 2 Frame M13 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS1 24 
I-stream decode forks : Address Specifier Evaluation 



Sequence 374 



Page 373 



U 0408. 0800,003E,01EO.F938.0200.0060 
J 0409. 001 8.001 8.1 580. F8D8, 0000. 0408 

U 040A. 0818.0004,1 5E0.F8D8. 0000. 09A6 
U 0408, 0000,003C,01EO,F800,0200,09A1 

U 09A1, 0018,0018,1 180, 40D8, 0000, 09A6 
U 040C, 0060, C03D. 0180, F988, 0000, 047E 
U 046C, 0811. 0016,0180, F800, 0200, 0060 

U 0400, D805,2016.01EO,F938,0200,0060 

U 040F, 0005,201 4, 01 (E0,F 800, 0200, 09A4 
U 09A^, 0000, 003C, 01 80, 4000, 0000, 09A6 

U 09A6, 0001, 003E, 01 80, F 938, 0200, 0060 



14240 .-ADDRESS SPECIFIER EVALUATION, CONTINUED 
14241 

14242 408: ; — 

14243 ASPC.DR:Q D,DfcVA LA, 



14244 

14245 

14246 

14247 409: 

14248 

14249 

14250 

14251 40A: 

14252 

14253 

14254 

14255 

14256 408: 

14257 

14258 

14259 

14260 

14261 

14262 

14263 

14264 40C: 

14265 

14266 

14267 

14268 46C: 

14269 

14270 

14271 

14272 40D: 

14273 

14274 

14275 

14276 

14277 

14278 40F: 

14279 

14280 

14281 

14282 

14283 

14284 

14285 

14286 ASPC.DF.-VA D, 

14287 LC~RCCT7] 

14288 RETURN60 



Lt RCCT73, 
RETURN60 



R.PRN) LA+KCSP1.C0NJ.RL0G, 
J/ASPCTDR 



Q D,R(PRN) LA-KCSP1.C0NJ.RL06, 

D ALU, 

J7ASPC.DF 



Q_D.VA.LA 



DCL0N6J CACHE, 
R(PRN) CA+KC4J.RL06, 
J/ASPC.DF 



(R) 

RECOVER INDEX, IF ANY 

RETURN IT 



UPDATE THE STACK POINTER 
THEN LOAD UN-INCREMENTED ADDR 



-<R) AUTO DECREMENT 

USE DECREMENTED ADDR 
60 LOAD LC BEFORE RETURNING 



;a<R)+ AUTO INCREMENT DEFERED 



GET INDIRECT WORD 

WHILE UPDATING REGISTER 
THEN JOIN COMMON CODE 



rczt71 la.ctx, 
call,j7aspc 



D6VA D+LC, 
RETURN60 



;IND C X MODE, CONTEXT SHIFT INDEX 
;G0 AROUND AGAIN 



; RETURN THE INDEXED VALUE 



Q D,D6VA Q+LB.PC, 
CCR.I8.SPEC, 
LC RCCT73, 
RETURN60 



Q D,VA Q+LB.PC, 
CCR.IB7SPEC 



D(R) DISPLACEMENT MODE. 
DISCARD THE SPECIFIER 
LOAD UP INDEX, IF ANY 



8D(R) DISPLACEMENT DEFERED 
DROP THE SPECIFIER 



DCL0NG3CACHE 



;GET INDIRECT, GO USE IT AS ADDR 



USE POINTER AS ADDRESS 
RECOVER INDEX, IF ANY 
RETURN IT 



ZZ-ESOAA-124.0 ; ASPC .MIC C600, 12043 



; P1U124.MCR 600.12043 
; ASPC .MIC C600. 12043 



N 13 
I -stream decode for14-Jan-82 



Fiche 2 Frame N13 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 
I-stream decode forks : Address Specifier Evaluation 



Sequence 375 



Page 374 



U 0414, 0000,003C,0180,F800,0000,0001 

U 0415, 0000,003C,0180,F800,0000,0001 

U (K1d 0000,003C.0180,F800,0000,0001 

U 06 17. 0000,003C.0180,F800, 0000, 0001 

U 0418, 0CO0,O03C,0180,F800, 0000, 0001 

U 0419, D81 4, 0038.01 E0,F 800, 0000, 09A8 

U 09A8, 0819,0002,1 580, F 938, 0200, 0060 
U 041A, 0000,003C, 0180, F800,0000, 0001 

U 0418, DCO1.203E, 01 E0,F938, 0200, 0060 
U 041C, 0000,003C,0180,F800,0000,OOC'i 
U 041D, 0000, 003C, 01 80, F 800, 0000, 0001 



14289 ;HERE ARE VARIANTS OF THE ASPC ENTRY POINTS FOR R=PC 
14290 



14291 414: 

14292 

14293 

14294 415: 

14295 

14296 

14297 416: 

14298 

14299 

14300 417: 

14301 

14302 

14303 418: 

14304 

14305 

14306 419: 

14307 

14308 

14309 

14310 

14311 

14312 

14313 

14314 

14315 

14316 41A: 

14317 

14318 

14319 418: 

14320 

14321 

14322 

14323 

14324 

14325 41 C: 

14326 

14327 

14328 41 D: 

14329 



J/RSVMOD 
J/RSVMOD 
J/RSVMOD 
J/RSV/-0D 
J/RSVMOD 



dp:, 
ccr.i8.spec 



DfcVA D-KCSP1.C0NJ, 
LC RZa?3, 
RETURN60 



J/RSVMOD 



Q D,D&VA Q, 
Lt RCCT7j\ 
CLR.I8.SPEC, 
RETURN60 



J/RSVMOD 
J/RSVMOD 



;PC REGISTER MODE 

•ILLEGAL REGISTER MODE, R=PC 

';PC QUAD REGISTER MODE 

; ILLEGAL QUAD REGISTER MODE, R=PC 

; (PC) 



(°C) + IMMEDIATE MODE 

GET PC WHICH THE IB INCREMENTED 



COMPUTE THE UNINCREMENTED ADDRESS 
RECOVER INDEX, IF ANY 



;-(PC) 



,a(PC)+ ABSOLUTE MODE 
;GET BACK INDEX 



; INDEX MODE, R=PC 
;NESTED INDEX MODE, R=PC 



ZZ-ESOAA-124.0 ; ASPC .MIC C600.120AD 



; P1W124.MCR 600, 1204 J 
; ASPC .MIC C600.120AD 



B H 
I -stream decode for14-Jan-82 



Fiche 2 frame 814 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 
I-stream decode forks : Address Specifier Evaluation 



Sequence 376 



Page 375 



U 0487, OOOO,C03D.0180,F800,O0O0.0EE0 

U 047C, 0000,003D,0180.F800,0000,OE64 

U 047D, 0000,003D.0180,F800, 0000, 0880 

U 04,, . 0000.003C, 01 80, F800, 0000, 04F8 

U 04F8, 0014, 1539,0180, F9E0, 0000, 0DA7 

U 04FA, 0883, 0028, 3DF0,2C00, 0000, 09A9 

U 09A9, 081 D, 0034,0180, F800, 0000, 09AA 

U 09AA, 0000. OE3C»3D80,3CO0, 0000, 0F8D 



14330 .-HERE WHEN 18 ROMS BELIEVE WE SHOULDN'T GET HERE 
14331 

14333 " CALL.J/EH.USEQ ^IWUSED" LOCATION IN IB ROM 

14334 

14335 ;HERE OFF ASPC, WHEN INSTRUCTION BUFFER DOES NOT HAVE ENOUGH DATA 

14336 

14337 47C: 

14338 

14339 

14340 47D: 

14341 

14342 

14343 ;47E: 

14344 ; 
14345 

14346 47F: 
14347 
14348 

14350 UT.B: RCCPC.SV3 PC, 

14351 CALL,RL0G.EMP1Y?,J/BAKUP.RGS 
14352 

1 4353 ; 

14354 If T.I: Q IDCPSLH. 

14355 ACU -1 ,D ALU.RIGHT2, SI/ZERO 
14356 

14357 A .PA. 30: 
14358 

D D.AND.Q 



CALL.J/IB.TBM 
CALL.J/IB.ERR 
ASPC: 
J/INT.B 



TB MISS. REFILL IT 

ANY ERROR. FIND OUT WHAT HAPPENED 

STALL, WAITING FOR THE DATA 

INTERRUPT REQUEST DETECTED 

BACKUP REGISTERS AND TAKE INTERRUPT 



SAVE PC WHERE BAKUP.PC WILL FIND IT 
GO RESTORE REGISTERS AND PC 

HERE ON INTERRUPT IN MIDST 0. r INSTR 

GET CURRENT PSL 

BUILD MASK FOR BITS 29:0 



14359 
14360 
.'361 
143t>2 
14363 
14364 
14365 .LIST 



idcpsl: D, 

INTERRUPT. REQ?,J/INTJ0 



.•CLEAR TP (CM =0 ANYWAY) 
;PUT BACK PSL 



; Re-enable full listing 



r 



C H 
ZZ-ESOAA-124.0 ; ASPC .MIC C600, 12043 I-stream decode for14-Jan-82 Fiche 2 Frame C14 Sequence 377 
; P1W124.MCR 600,1504] MICR02 1L<03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 376 
; ASPC .MIC [600,1204] I-stream decode forks : Address Specifier Evaluation 



14365; This page intentionally left blank. 



u 
ZZ-ESOAA-124.0 ; FIELD .MIC [600,1200 FIELD.MIC H-Jan-82 Fiche 2 Frame D14 Sequence 378 

; P1W124.MCR 600,12043 MICR02 U(03) K-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 377 

; FIELD .MIC C60C120AJ FIELD.MIC 

H366 .TOC 'TIELD.MIC" 

14367 .TOC 'Revision 1.1" 

14368 ; P. R. GuUbault 
K369 

14370 .NOBIN 

14371 .TOC " Revision History" 
14372 

14373 ; 01 Remove absolute jumps. 
K374 ; 00 Start of history 
14375 

.-14376 .BIN 

.•14377 .NOLIST .-Disable listing of PCS code for quickie assemblies 



E U 
ZZ-ESOAA-124.0 ; FIELD .MIC C600J20A] Field instructions 14-Jan-82 Fiche 2 Frame E14 Sequence 379 
; P1 W1 24. MCR 600,12043 MICR02 1L(03) K-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
; FIELD .MIC [600.12043 Field instructions "" "" ~"~ 



U 034E, 0001,203c. COB?. FAF8.0096, 6054 



U 0054. 0018,8001, 04^0, F800.0182.09AC 



U 0074, 051D,3414.8DCO,F800.0185.A654 



U 0075, 0881,343C,8DE0,F800.O185.A614 

U 0614, OCOO,OD3C,01CO,F860.0080,8395 
U 0615, CFOO,003F.01F8,F800,0081.048? 

U 0616. 0C0O,0D3C.01C0.F860,0080,8395 
U 0617, 0000, 003C.0180.F800, 0000. 0106 



14378 

14379 

14380 

14381 

14382 

14383 

14384 

14385 

14386 

14387 

14388 

14389 

14390 

14391 

14392 

14393 

14394 

14395 

14396 

14397 

14398 

14399 

14400 

14401 

14402 

14403 

14404 

14405 

14406 

14407 

14408 

14409 

1 4410 

14411 

14412 

14413 

14414 

14415 

14416 

14417 

14418 

14419 

14420 

14421 

14422 

14423 

14424 

14425 

14426 

14427 

14428 

14429 

14430 

14431 



FFS. FFC, CMPV, CMP2V, EXTV, EXTZV 
.TOC " Field instructions : FFS e FFC, CMPV, CMPZV, EXTV, EXTZV 
;HERE WITH SIZE OPERAND IN D, POSITION IN C 



378 



34E: 
FF: 
CMPV: 
EXTV: 



SC Q. 

RCRl$3 Q, 

Q Q. RIGHT, SI/ASHR, 

CfR.SDfcSS, 

EALUJCC.FFFF3.CLK.UBCC 



=1 0****0; 

Q O.RIGHT2,SI/ASHR, 

FFJ SC, 

SC D.0XTCBYTE3-KC.13. 

CACL,J/EXTV.2 



=11****0; 

QJ3+D, 



D D.LEFT, 

FE SC-KC.1F3, 

SC"FE, 

SC?,J/EXTV.3 



D Q.RIGHT2, 
FF SC-KC.1F3, 
SC FE. 
SC? 



=100 



SC SC+FE, 
D_2, 

Q RCPRN+1). 

dTne.o?,j/extv.5 



D 0,Q.O, 

sr FE, 
Slfi/SPECJ/EXTV.8 



SC SC+FE. 

D_Q, 

Q R(PRN+1), 

D7NE.0?.J/EXTV.5 



J/RSVOPR 
=;END OF SC TEST 



CALL SITE FOR INVOKING ASPC SUBR 

MOVE POSITION (LOW BITS) TO SC 

SAVE POSITION IN R15 FOR FFX 

GET POSITION/2 

INIT SS FOR BRANCHES 

SET EALU N=1 , Z=0 

CALL SITE FOR VSRC SPECIFIER EVALUATION 

GET POSITION/8 

MOVE LOW BITS OF POSITION TO FE 

GET SIZE -1 TO SC 

GO CALCULATE BASE 

RETURN HERE WITH BASE ADDRESS IN D 

(POSITION/8) +BASE TO Q 

BASE *2 

GET S-32 IN FE 

LOW SITS OF POSITION TO SC 

TEST SIZE .LEQU. 32 

RETU.W HERE WITH REGISTER 
SAVE LOW REGISTER IN Q A MOMENT 
D IS POSITION/32 
GET S-32 TO FE 
AND POSITION TO SC 



SC .EQL. (SIZE =1) 

GET P+S-32 

GET LOW REGISTER WITH FIELD 

GET HIGH REGISTER 

MAKE SURE POSITION WAS LESS THAN 32 

SC .LSS. (SIZE =0) 
FIELD OF SIZE IS ZERO 
6ET SIZE -32 FOR FFX USE 
FIND OUT WHAT TO USE IT FOR 

.LSS. SC .LSS. 32 (SIZE VALID) 

GET P+S-32 

GET LOW REGISTER WITH FIELD 

GET HIGH REGISTER 

MAKE SURE rHSITION WAS LESS THAN 32 

SC .6EQ. 32 



F 14 
ZZ-ESOAA-124.0 ; FIELD .MIC C600, 12043 Field instructions 14-Jan-82 Fiche 2 Frame F14 Sequence 380 
P1U124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
FIELD .MIC C600. 12043 Field instructions : FFS, FFC, CMPV, CMPZV. EXTV, EXfZV 



379 



U 09AC, FC00,003F. 01 F0,F847. 0000. 0400 



U 0654, 011 9,2024. 0D80,F800. 0200, 09AD 

U 0655. OF00.003F.01F8.F800.0081. 0482 

U 0656, 011 9,2024, 0D80.F800. 0200, 09AD 
U 065 7 , 0000,003C.OKO.F800. 0000.0106 

U 09AD, 0019,0014,1DC0.F800.0000.09AE 
U 09AE. 00*. .2034. 8D80. 4000. 0082. 0980 



14432 
14433 
14434 
14435 
14436 
1443? 
14438 
14439 
14440 
14441 
14442 
14443 
14444 
14445 
14446 
14447 
14448 
14449 
14450 
14451 
14452 
14453 
14454 
14455 
H456 
14457 
14458 
14459 
14460 
14461 
14462 
14463 
14464 
14465 
14466 
14467 
14468 
14469 
14470 
14471 



.HERE TO GET BASE OF FIELD. 

; RETURN ABOVE, WITH POSITION/8 IN Q, BASE ADDRESS IN D 



EXTV. 2: D Q, 

L*B R(SP1), 
Q I§.DATA, 
CrR.IB.COND, 
PC PC+N. 
SUS/SPECJ/ASPC.8 



POSITION /8 NOW IN D 

LOAD LATCHES WITH SPECIFIER REGISTER 

ASK IB FOR SPECIFIER DATA 

CLEA* IT 

STEP PC OVER IT 

GO EVALUATE BASE SPECIFIER ADDRESS 



.-HERE FOR FIELD INSTRUCTIONS WHEN THE FIELD IS 
; IN MEMORY, AS OPPOSED TO A REGISTER. 



=100 ; — 

EXTV. 3: VA Q.ANDN0T.KC33, 

D 5.LEFT2, 

J7EXTV.4 



-;SC .EQL. (SIZE =1) 
.-LONGWORD ADDRESS OF FIELD 
;3ASE NOW *8 IN D 



D O.Q.O. 

sr FE, 

SUB/SPECJ/EXTV.8 



•;SC .LSS. (SIIc =0) 
;ANY FIELD OF SIZE IS ZERO 
;GET SIZE -32 FOR FfX 
;G0 FIND OUT WHAT TO DO WITH IT 



; ;1 . LE Q. SC >LEQ> 31 ( SIZ£ >LEQ< 32) 

VA Q.ANDNOT.KC.33, ;LONGWORD ADDRESS OF FIELD 

D 5.LEFT2, .-BASE NOW *8 IN D 

J7EXTV.4 



J/RSVOPR 
=;6ND OF SC TEST 



•;SC .GTR. 31 (SIZE .GTR. 32) 
.TAKE RESERVED OPERAND FAULT 



EXTV. 4: D+KCSC3 



;(BASE *8) + POSITION 



SC Q.AND.KC.1F3, 
DLT0NG3 CACHE 



;GET P (POSITION IN LONGWORD) TO SC 
;GET LONGWORD CONTAINING FIELD 



G 14 

ZZ-ESOAA-124.0 ; FIELD .MIC [600.12043 Field instructions H-Jan-82 Fiche 2 Frame G14 Sequence 331 

P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0£, WCS124 Page 



FIELD !MIC C606, 12043 



U 09BO, 0000,003C ,01 EC, F 803. 0090. 3395 



U 0395. 001B.1200.1D80.F800.0082.02E2 



U 0397, 0000. 003C. 01 80, F 800, 0000, 01 06 



U 02E2, 0000. 003C, 7580,4000.0084. 82FA 



U 02E6. 0000, 003F. 01 F 8, F 800. 0081 ,0482 



U 02EA, OD00.003F.01F8.F800. 0081 .0482 



Field instructions 



14472 
14473 
14474 
14475 
14476 
14477 
14478 
14479 
14480 
14481 
14482 
14483 
14484 
14485 
14486 
14487 
14483 
14489 
14490 
14491 
14492 
14493 
14494 
14495 
14496 
14497 
14498 
14499 
14500 
14501 
14502 
14503 
14504 
K505 
14506 
14507 
14508 
.4509 
14510 
14511 
14512 
14513 
H514 
14515 



FFS. FFC, CMPV. CMPZV, EXTV, EXTZV 

;AT THIS POINT, WE HAVE CALCULATED P. THE POSITION OF THE FIELD 
,-UITHIN AN ALIGNED LONGWORD, AND HAVE GOTTEN THAT LONGWORD CONTAINING THE 
; LOW-ORDER BIT OF THE FIELD INTO D. WE MUST DETERMINE WHETHER THE FIELD 
.EXTENDS INTO A SECOND LUrtGWORD, AND SHIFT THE FIELD INTO PUCE. 



380 



SC SC+FE. 
CLK.UBCC. 
Q D. 
V* Vm+4 



SC HAS P*S ~32 

IT MIGHT BE NEGATIVE. CHECK 

COPY FIELD TO 

PREPARE TO GET NEXT LONGWORD IF NEEDED 



NOW SET UP D, Q AND SC FOR THIS SHIFT: 
D Q 

* ! <S> ! <P> * ! <S> ! <P> * 



=101 ; 

EXTV.5: SC 0-KCSC3, 

EAL"U?,J/EXTV.6 



J/RSVOPR 



=001* ; 

EXTV. 6: DCL0NG3 CACHE, 
SC SC+KL\203, 
J/EXTV.7 



Si Ft. 
SUB7SPECJ/EXTV.8 



EXTV. 7: D DAL.SC, 

sr FE, 

SOB/SPEC, J/EXTV. 8 
=;END OF EALU N+Z TEST 



D.EQL.U ^REGISTER MODE, POS.LSS.32) 

GET 32- iP+S) 

TEST FOR P+S .GTR. 32 

IF REGISTER, EALU N=1 , Z=0. 



-;D.NEQ.O (REGISTER MODE, POS.GEQ.32) 



EALU NfcZ =0 (P+S .GTR. 32) 
GET SECOND PART OF FIELD 
GET 64-P+S 
GO SHIFT 

EALU N=0, Z=1 (P+S .EQL. 32) 
READY TO ZERO EXTEND 
FIELD IS LEFT ADJUSTED IN D ALREADY 
WHAT TO DO WITH IT? 

EALU N=1 (P+S .LSS. 32) 

MOVE SELECTED FIELD TO D<31:(32-S)> 

GET S-32 IN SC 

PREPARE T "ERO EXTEND 

NOW. WHO W...TED THIS? 



ZZ-ESOAA-124.0 

P1U124.MCR 60u,i<:v*j 
FIELD .MIC [600.12043 



H 14 

. . FIELD .MIC C600.12043 Field instructions 14-Jan-82 Fiche 2 Frame H14 Sequence 382 

P1U124.MCR 600J2043 MICRC2 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 
~" Field instructions : FFS, FFC, CMPV, CMPZV, EXTV, EXTZV 



Page 381 



U 0482. 0000.OD3C.0180.F800.0000.048E 



U 048E, FD00.003F.01FO.F847, 0000, 0200 



U G48F, 0001, 2028. 01 CO, F 800. 0000. 048E 



14516 
14517 
14518 
14519 
14520 
14521 
14522 
14523 
14524 
14525 
14526 
14527 
14528 
14529 
14530 
14531 
14532 
14533 
14534 
14535 
14536 
14537 
14538 
14539 



AT THIS POINT, THE DESIRED FIELD HAS BEEN POSITIONED IN D, SO THAT ITS 
MOST SIGNIFICANT BIT IS IN D31 » AND SC CONTAINS THE FIELD SIZE -32. 
Q D 

* * < S > ! * 

* * 



482: 
EXTV.8: 



D317.J/EXTV.9 



;EXTV OR CMPV 

;TEST SIGN OF FIELD 



.-HERE WE EXTEND THE FIELD TO A LONGWORD, AND EVALUATE THE FINAL SPECIFIER 
; IF THIS IS EXTV OR EXTZV, THE FINAL SPECIFIER WILL BE 'WRITE" TYPE, 
; AND THE CODE AT B-FORK WILL TRANSFER TC IRD AFTER STORING THE RESULT. 
; IF THIS IS CMPV OR CMPZV, THE FINAL SPECIFIER IS 'READ" TYPE, 
; AND B-FORK WILL GO ON TO EXECUTION AT CMP. 



48E: ; 

EXTV. 9: D DAL.SC, 
B7F0RK 



48F: 



Q_N0T.Q,J/EXTV.9 



-;D31=0. FIELD IS POSITIVE (OR ZERO-EXT) 
.-SIGN- OR ZERO- EXTEND THE FIELD 
;G0 EVALUATE THE FOURTH SPECIFIER 

-;D31=1. FIELD IS NEGATIVE 
.•SIGN-EXTENSION REQUIRES ONES 



I 14 
ZZ-ESOAA-124.0 ; FIELD .MIC C600.12043 Field instructions 14-Jan-82 fiche 2 Frame 114 Seguence 383 
; PI U1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA UE, WCS124 Page 
; FIELD .MIC [600,12043 Field instructions : FFS, FFC, CMPV, CMPZV. EXTV, EXTZV 

14540 ;HERE FOR FFS. FFC WITH THE SELECTED FIELD LEFT-ALIGNED IN D, AND Q ZERO. 

14541 ; SC HAS S-32. FOR SHIFTING THE FIELD INTO D, RIGHT ALIGNED. 

14542 ; R15 CONTAINS THE ORIGINAL POSITION. 

14543 ; IF THIS IS FFC, WE FIRST COMPLEMENT D TO CONVERT "CLEAR" TO "SET" 
14544 

14545 481: ; 

14546 FFC.1: D.NOT.D 
14547 



382 



U 0481. 0801 ,0028.01 80, F 800. 0000, 0480 

U 0480, 0D18, 0038, 75S0,F8OO,00F4, 8981 
U 09B1, OO1F,2DOO,01C0.F8O0,0OO0,O4E5 
U 04E5, 0001,C03C.0180,F800,0070.09B4 
U 04E7. 081 D, 0034. 8D80,F 800, 0084,6984 

U 0984, 0000,003C, 01 CO, FA78.008CA985 
U 09B5, F819. 2017, 1DF0.F847, 0000, 0300 



14548 430: 

14549 FFS.1: 
14550 

14551 

K552 

H553 

14554 

14555 

14556 

14557 =101 

14558 

14559 

14560 

14561 

14562 

14563 

14564 

14565 

14566 FFS. 3: 

14567 

14568 

14569 

14570 

14571 

14572 



D DAL.SC, 

Si SC+KC.20D, 

ALO K[. 203, LONG, CCK/INST.DEP 



Q.O-D, 
D.NE.O? 



ALU D.SET.CC(INST), 
J/FfS.3 



D D.AND.Q, 
St KC.1F3 



SC.SC-SHF.VAL, 
Q RCR15D 



D Q+KCSC3, 
WRITE. DEST.J/WRD 



SEARCH FOR ZEROS 



RIGHT-ALIGN THE FIELD IN D 
RECOVER FIELD SIZE 
GUESS WE WILL FIND A BIT 



NEGATE D TO Q 

ARE ANY SET (FFS) OR CLEAR (FFC)? 

D.EQL.O 

MAKE ALU ZERO, SET PSL<Z> 

GO ADD SIZE TO OLD POSITION 

D.NEQ.O 

LEAVE ONLY LEAST SIGNIFICANT ONE SET 

SETUP 31 FOR CALCULATING BIT POSITION 



SC GETS BIT POSITION OF FIRST ONF 

(SHF.VAL =0 IF D=0) 
GET STARTING POSITION 



GET POSITION TO RETURN 
GIVE IT BACK 



J u 

ZZ-ESOAA-124.0 ; FIELD .MIC [600, 12043 Field instructions 14-Jan-82 Fiche 2 Frame J14 Seguence 384 
PI W1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 
FIELD .MIC [600. 12043 Field instructions : INSV 



Page 383 



U 0348, 0C81.0O3D.O0C7.F80C.O082,010A 



U 0368, OOA1,143C,8DCO,F908.0185,A684 



U 0369, 0881,343C,8DF8,F800.0185.A674 



U 0674. 0003, 0D10.C1F0.2DA0, 0110, 84FC 



U 0675. C000.003C, 0180. F804, 4000. 0062 



U 0676, 0003, QD10.C1F0.2DA0, 0110, 84FC 



U 0677. 0OOO.003C, 0180, F800, 0000, 0106 



14573 
14574 
14575 
14576 
14577 
14578 
14579 
14580 
14581 
14582 
14583 
14584 
14585 
14586 
14587 
14588 
14589 
14590 
14591 
14592 
14593 
14594 
14595 
14596 
14597 
14598 
14599 
14600 
14601 
14602 
14603 
14604 
14605 
14606 
14607 
14608 
14609 
14610 
14611 
14612 
14613 
14614 
14615 
14616 
14617 
14618 
14619 
14620 
14621 



.TOC 



Field instructions 



INSV 



THE VALUE TO BE INSERTED IS IN Q, AMD THE FIELD POSITION IS IN D 
TEMPS USED BY THIS ROUTINE ARE: 

IDCT03 = SOURCE, THE VALUE TO BE INSERTED 

RCCT13 = POSITION/8 

RC[T23 = ADDRESS OF LONGWORD CONTAINING LOW BIT(S) OF FIELD 

RC[T33 = THE MEMORY LONGWORD ADDRESSES BY T2, MASKED DOWN 
TO ONLY THE BITS TO BE PRESERVED. 

RC[T43 = MASKS 



348: 
INSV: 



368: 



369: 



=100 



SC D, 

Q 0.RIGHT2.SI/ASHR, 

D"C, 

CtR.SDfcSS, 

CALL.J/INSV.1 



LC RCQ13, 
Q 5.LEFT3. 
FP.SC-KC.1F3, 
SC FE, 
SC?,J/INSV.4 



D Q.RIGHT2, SI/ZERO, Q 0, 

FP SC-KC.1F3, 

SC'FE. 

SC? 



Q IDCT03, 
Rf[T43 O+MASK+1, 
FE SC+FE,CLK.UBCC, 
D.fiE.0?,J/INSV.2 



CLR.IB.OPC, 
PC.PC+1.J/IRD 



Q IDCT03, 
RU[T4] O+MASK+1, 
FE SC+FE.CLK.L8CC, 
D.RE.0?,J/INSV.2 



J/RSVOPR 



LOW BITS OF POSITION TO SC 

POSITION/4 IN Q 

PREPARE NEW VALUE FOR SAVING IN ID TO 

INIT FLAGS FOR EASIER BRANCHING 

GO GET SIZE AND BASE OPERANDS 

RETURN HERE WITH BASE IN D IF MEMORY 

GET POSITION/8 READY 

ALSO BASE *8 

GET S-32 TO FE 

LOW BITS OF POSITION TO SC AGAIN 

VALIDATE SIZE OPERAND 

RETURN HERE IF 8ASE SELECTS REGISTER 
GET P/32 IN D 
GET S-32 IN FE 
POSH ION TO SC 
TEST SIZE-1 

SC=0 (SIZE=1) 

GET DATA TO BE INSERTED 

BEGIN MASK GENERATION 

CALCULATE P+S-32 

IS POSITION LEGAL? 

SC.LSS.O (SIZE =0) 
GO ON TO NEXT INSTR 



-.SC.GTR.O 

;GET DATA TO BE INSERTED 
.-BEGIN MASK GENERATION 
.•CALCULATE P+S-32 
;IS POSITION LEGAL? 

-;SC.GEQ.32 



K 14 
ZZ-ESOAA-124.0 ; FIELD .MIC [600, 12043 Field instructions 14-Jan-82 Fiche 2 Frame K14 Sequence 385 
; P1 U1 24. MCR 600,12043 MICR02 11(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 384 
; FIELD .MIC C60O. 12043 Field instructions : INSV 

14622 ;HERE TO INSERT A FIELD INTO A REGISTER 
14623 

14624 =0* ; ,-D.EQL.O (POSITION .LSSU. 32) 

14625 INSV. 2: DO, .-PREPARE TO ROTATE INSERT DATA 

14626 EALU.N?,J/INSV.2A ;1S FIELD ALL IN ONE RE6ISTER? 
14627 

14628 ; .-D.NEO.O (POSITION .GEQU. 32) 

14629 J/RSVOPR 
14630 



U 04FC, 0COO,123C. 0180. F800. 0000, 0196 
U 04FE. 0000. 003C, 01 80. F 800. 0000,01 06 

U 01%, 0D10. 0024. 01CO.F920. 0081, 09C4 



U C:9E, 0D1 0,0038.01 CO, F920, 0081, 09B8 

U 0988, 0001,2008.01 CO, F8O0,0OO0,O9B9 

U 09B9, 081D,0034,0180,F800,0000,09BC 

U 09BC, 001C,0024.01CO,F858,0000,098E 

U 09BE, C01D, 0030. 0180, F8DC, 4000. 0062 



14631 =0* I* ; 

14632 IWSV.2A.-D DAL.SC, 



14633 
14634 
14635 
14636 
14637 
14638 
14639 
14640 
14641 
14642 
14643 
14644 
14645 
14646 
14647 
14648 
14649 
14650 
14651 
14652 
14653 
14654 
14655 
14656 
14657 
14658 



St FE, 

Q CA.ANDNOT.RCCT43, 

J7INSV.3 



EALU N=0 (P+S .GEO. 32) 

ALIGN THE INSERTION 

P+S-32 

SAVE NON-FIELD BITS OF REGISTER 



A******************************************-*** * 

* Patch no. 065, PCS 0196 trapped to WCS 118B * 

*********************************************** 



D DAL.SC, 

sr FE, 
Q RCCT43 



Q_Q-MASK-1 

D_D.AND.Q 

6 R(PRN).ANDNOT.O 



R(PRN) D.OR.Q. 
CLR.ieTOPC, 
PC PC+1.J/IRD 



EALU H=1 (P+S .LSS. 32) 
ALIGN THE INSERTION 
GET P+S-32 
GET PARTIAL MASK 



PREPARE MASK OF FIELD 
STRIP OFF ALL BUT INSERTION 
CLEAR FIELD FROM REGISTER 



COMBINE FIELD WITH REST OF REGISTER 
GO TO NEXT INSTR 



U 09C4. 081 1,0034.01 80. F800.0000.09C5 

U 09C5. 001D.0030.C1F0.2CD8.C000.09C8 

U 09C8, OD03.0010.01CO.F800.0000.09C9 

U 09C9. 081D.0024.0180.F800.0000.09CA 

U 09CA, 001C,0034,01CO.F860,0000,09CC 

U 09CC. C01D. 0030. 0180. F8E4. 4000, 0062 



L 14 
ZZ-ESOAA-124.0 ; FIELD .MIC [600. 12043 Field instructions 14-Jan-82 Fiche 2 Frame L14 Sequence 386 
; P1W124.MCR 600,12043 M1CR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS1 24 Page 
; FIELD .MIC C600, 12043 Field instructions : INSV 



385 



14659 ;HERE FOR REGISTER INSERTION WHEN P+S IS GREATER THAN 32 
14660 

14662 INSV.3: D_D.AND.LC -LOW PART OF If, ""HON INTO DATA 

14663 

14665 R(PRN) D.OR.Q, -COMBINE OLD DATA WITH INSERT 

14666 QJDCT03 ;GET BACK REST OF INSERT 
14667 

1 4668 ; ; 

14669 Q 0+MASK+1. ;MASK FOR HIGH PART OF INSERT 

14670 D.DAL. SC ;6ET HIGH PART OF INSERT 
14671 

14672 FI.PA.65: 

1 4673 ; ; 

14674 D D.ANDNOT.Q .-STRIP INSERT DATA 
14675 

1 4676 ; ; 

14677 Q R(PRN+1).AND.Q .-CLEAR INSERTION PART OF REGISTER 
14678 

14680 R(PRN+1) D.OR.O, ; COMBINE INTO HIGH REGISTER 

14681 CLR.I8.0PC.PC PC+1 , ;G0 TO NEXT INSTR 

14682 J/IRD 



U 010A, 0841.203D,C080.3D88,0000,037E 



U 011A, FC1B.8003,05F0.F847, 0182, 0400 



ZZ-ES0AA-124.0 ; FIELD 
P1W124.MCR 600.1204D 
FIELD .MIC [600.1204: 



M 14 
.MIC C600 .1 2043 Field instructions 14-Jan-82 Fiche 2 Frame M14 Sequence 387 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
Field instructions : INSV 



386 



U 0684, 0019,2014.1D80,F9C8,0082,09CD 



U 0685, C0OO,O03C. 0180, F804, 4000. 0062 



U 0686, 0019.2014.1D80.F908,0082,09CD 



U 0687, 0000. 003C, 01 80. f 800, 0000, 01 06 



14683 
14684 
14685 
14686 
14687 
14688 
14689 
14690 
14691 
14692 
14693 
14694 
14695 
14696 
14697 
14698 
14699 
14700 
14701 
14702 
14703 
14704 
14705 
14706 
14707 
14708 
14709 
14710 
14711 
14712 
14713 
14714 
14715 
14716 
14717 
14718 
14719 
14720 



;HERE IN INSV TO GET THE SIZE AND BASE OPERANDS 



=0**1* 
INSV.1: 



ID[T03 D, 

RCCTU'Q. RIGHT, SI/ASHR, 

D Q. RIGHT, 

C*LL,J/SPEC 



FE.SC, 

SC D.0XTCBYTE>K[.13, 

DC, 

LAB R(SP1). 

Q IB. DATA, 

CCR.IB.COND, 

PC PC+N, 

SUB/SPECJ/ASPC.B 

.•HERE FOR INSV ON A MEMORY FIELD 

INSV. 4: SC Q+K[SCD, 
LC~RC[T1D, 
J/TNSV.5 



CALL SITE FOR SIZE SPECIFIER EVALUATION 
SAVE NEW VALUE FOR FIELD 
POSITION/8 NOW IN RC T1 

AND D 
GO GET SIZE 

RETURN HERE WITH SIZE IN D 

MOVE POSITION OUT OF THE WAY 

GET SIZE-1 TO SC 

LEAVE POS/8 IN Q ON RETURN 

PREPARE TO EVALUATE BASE SPECIFIER 



CALCULATE BASE ADDRESS 



SC .EQL. (SIZE =1) 
(BASE*8> + POS TO SC 
LOAD LATCH WITH POSITION/8 



CLR.I8.0PC, 
PC_PC+1.J/IRD 



-;SC .LSS. (SIZE =0) 
;D0 NOTHING 



SC Q+K[SC3, 

LC"RC[T13, 

J/TNSV.5 



-;0 .LSS. SC .LSS. 32 (SIZE VALID) 
;SC GETS (BASE*8) + POS 
;GET POSITION OFFSET INTO LATCH 



J/RSVOPR 
=;END OF SC TEST 



•;SC .GEO. 32 (SIZE .GTR. 32) 



N 14 
ZZ-ESOAA-124.0 ; FIELD .MIC C600, 12043 Field instructions 14-Jan-82 Fiche 2 Frame N14 Seguence 388 

P1 W1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 387 

FIELD .MIC [600. 12043 Field instructions : INSV 



U 09CD. 0811,0014,A180,F800.0084,49CE 



U 09CE, 0019,0024.0D80,F990.0310.89D0 



U 09D0. 0003, 1210, 75C0,51A0,0185,A2F6 



U 02F6, OOiD, 0024, C1F0,2D98, 0181 ,09D5 



U 02FE, 0001, 2008, C1F0,2DA0, 0031 ,09D1 



U 09D1, OD11,0024,01CO.F920,COOO,09D4 



U 09D4, 081 1,0034, 0180, F800, 0000, 09E1 



14721 

14722 

14723 

14724 

14725 

14726 

14727 

14728 

14729 

14730 

14731 

14732 

14733 

14734 

14735 

14736 

14737 

14738 

14739 

14740 

14741 

14742 

14743 

14744 

14745 

14746 

14747 

14748 

14749 

14750 

14751 

14752 

14753 

14754 

14755 

14756 

14757 

14758 

14759 

14760 

14761 

14762 

14763 

14764 

14765 

14766 

14767 

14768 



.-HERE ON INSV OF A MEMORY OPERAND, HAVING VERIFIED THE SIZE 
; AND CALCULATED P, THE POSITION WITHIN AN ALIGNED LONGWORD 



INSV. 5: SC SC.ANDNOT.KC.FFE03, 
DJJ+LC 



VA D.ANDNOT.KC. 33, 
RCLT23 ALU, 
FE SC+FE, 
CL~.L8CC 



Q O+MASK+1, 

RttIT43 ALU, 

SC FE," 

FE SC-KC.203, 

DllQNGJ CACHE. WCHK, 

EALU.N? 



SC IS NOW POSITION IN LONGWORD 
D IS BYTE ADDRESS OF FIELD 



CALCULATE LONGWORD ADDRESS OF FIELD 

SAVE IT FOR WRITING BACK 

P+S-32 

WATCH FOR P+S .GTR. 32 



ZEROS TO RIGHT OF FIELD 

KEEP HANDY 

GET P+S-J? TO SC 

P-32 TO Fl 

GET FIELD 

DOES IT CROSS LONGWORD BOUNDARY? 



*********************************************** 

* Patch no. 036, PCS 09D0 trapped to WCS 1170 * 

*********************************************** 



=011* 



RCCT33 D.ANDNOT.Q, 

Q IDCT03, 

St FE, 

FE_SC, 

VA VA+4, 

J/TNSV.6 



RCCT43 Q-MASK-1, 
SC FE." 
QJDCT03 

=;END OK EALU N TEST 

FI.PA.36: 



EALU N=0, FIELD LIES ACROSS BOUNDARY 

SAVE LOW PART OF MEMORY DATA 

GET DATA TO BE INSERTED 

GET P-32 FOR ALIGNING INSERT DATA 

SAVE P+S-32 (WHICH IS POSITIVE) 

ADDR OF SECOND LONGWORD 



EALU N=1, FIELD IS IN ONE LONGWORD 
MASK FOR BITS OF MEMORY TO DISCARD 
GET P-32 FOR SHIFT 
GET DATA TO INSERT 



Q D.ANDNOT.RCCT43. 
D~DAL.SC 



; CLEAR THE FIELD OF MEMORY WORD 
;ALI6N THE INSERT DATA 



D D.AND.LC 
J7JNSV.7 



;DROP JUNK NOT TO BE INSERTED 
;G0 COMBINE AND STORE 



B 15 

ZZ-ESOAA-124.0 ; FIELD .MIC [600.1204;] Field instructions 14-Jan-82 Fiche 2 Frayne B15 Seguence 389 

; P1W124.MCR 600.1204;) MICR02 1L(03) H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE. WCS124 Page 388 

; FIELD .MIC C600, 12043 Field instructions : INSV 



U 09D5, 0D00,O03C,75^0.F800.0185,89D6 

U 0906, 001 1,0034.01 CO, 5120. 0000, 09D8 

U 09D8. 0C10.O038.01E0.F910.O20O.09D9 

■' 09D9, 081 1,0030, 01 80, F 91 8. 0000, 09DC 

U 09DC, 0003, 001 0,01 80, 31 AO. 0081 ,09DD 

U 09DD, 0811. 2034, C1rO.2D23.0000.09DE 

u 09DE. OD00.003C.01EO.F800.0000.09EO 

U 09E0. 081 1.0024, 01 80, F 800. 0000. 09E1 

U 09E1, 081D. 0030, 0180, F800, 0000, 03FD 



Q D.AND.RCCT43, 
DIlONG: CACHE. WCHK 



VA RCCT2D, 
D Q 



D D.OR.RCCT33 



CACHE DtLONGJ. 
RCCT41 O+MASK+1, 
SC FE 



D Q.AND.RCCT43, 
VA" VA+4, 
IDCTOJ 



14769 .HERE WHEN THE FIELD LIES ACROSS A LONGWORD BOUNDARY 

14770 

H771 

14772 INSV. 6: D DAL.SC, 

14773 FE SC+KC.203, 

14774 SC"FE 
14775 
14776 
14777 
14778 
14779 
!4780 
14781 
14782 
14783 
14784 
14785 
14786 
14787 
14788 
14789 
14790 
14791 
14792 
14793 
14794 
14795 
14796 
14797 
14798 
14799 
14800 
14801 
14802 
14803 
14804 
14805 

14806 INSV. 7: D D.OR.Q, 

14807 J7ST0R.L 
14808 
14809 .LIST ;Re-enable full listing 



Q-D, 
DJ>AL.SC 



D D.ANDNOT.LC 



ALIGN THE INSERT DATA BY POSITION 
RESTORE P TO FE 
AND P+S-32 TO SC 



GET DESIRED PART OF THE INSERT 
AND THE OTHER MEMORY DATA 



RELOAD ADDR OF FIRST LONGWORD 
HOLD NEXT MEMORY DATA AT SIDE 
GET THE INSERT FIELD INTO D 



.-COMBINE NEW INSERT WITH OLD MEMORY DATA 



WRITE BACK LOW PART OF FIELD 
GET MASK FOR MEM SECOND PART 
P TO SC 



STRIP LOW BITS FROM SECOND PART 
GHT ADDR OF HIGH PART AGAIN 
GET INSERT DATA AGAIN 



SAVE MEM PART2 
ALI6N THE INSERT 



DISCARD JUNK FROM INSERT 



COMBINE INSERT WITH MEMORY DATA 
PUT IT BACK IN MEMORY 



C 15 

ZZ-ESOAA-124.0 ; CHAR .Eli 000,12043 CHAR. MIC 14-Jan-82 Piche 2 Frame C15 Sequence 390 

; P1U1 24. MCR 600.12043 MKR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS1 24 Page 389 

; CHAR .MIC [600.12043 CHAR. MIC 



14814 


.NOBIN 


14815 


.TOC 


14816 




14817 


; 01 


14818 




14819 


; 00 


14820 




14821 





14810 


.TCC 


"CHAR. MIC" 


14811 


.TOC 


'Revision 1 .3" 


14812 




P. R. Guilbault 


14813 







Revision History" 

Change macro names that deal with conditions codes. 

Comment patch no. 095 M0VC5 optimization. 

Create this file by merging MACCOM.MIC, MOV.MIC. SKP.MIC, SPAN.MIC. CMP.MIC, MATCH. MIC, and MTC.MIC 

Start of history 

; 14822 .BIN 

; 14823 .NOLIST .-Disable listing of PCS code for quickie assemblies 



ZZ-ESOAA-124.0 ; CHAR .MIC [600. 12043 

; P1W124.MCR 600.12043 MICR02 1L(03) 

; CHAR .MIC [600.12043 Character string 



Character string, 



14-Jan-82 15:30:16 
Utilities 



15 

14-Jan-82 



Fiche 2 Frame D15 



U 09E4, 0819,2024,61EO,F800,0104,69E5 



U 09E5, 0COO,OO3E,3D80,3CO0, 0000, 0040 



U 06D8, 0014, 0039, 01CO.F800, 1480. 0E88 

U 06DA, 0818, 0038, 1DC0.F800, 0000, 09E6 
U 0<?E6, 0OOO,0O3C,7180,F800,0084,69E8 



14824 
14825 
14826 
14827 
14828 
14829 
14830 
14831 
14832 
14833 
14834 
14835 
14836 
14837 
14838 
14839 
14840 
14841 
14842 
14843 
14844 
14845 
14846 
14847 
14848 
14849 
14850 
14851 
14852 
14853 
14854 
14855 
14856 
14857 
14858 
14859 
14860 
14861 
14862 
14863 
14864 
14865 
14866 
14867 
14868 
UJ69 
1*870 
14871 
14872 
14873 
14874 
14875 



• TOC 



VAX11/780 Microcode : PCS 01, FPLA 0E. WCS124 
Character string : Utilities" 



Sequence 391 



Page 390 



ALGORITHM: 

AS PART OF INITIALIZATION OF SOME STRING INSTRUCTIONS, 
CLEAR PSL CONDITION CODES 



INPUTS: 



CALLED WITH PSL IN Q 



OUTPUTS: 



ID/PSL WRITTEN WITH COND CODES ALL 



RETURN: 



ALWAYS RETURNS 40 



CLRPSLCC: 

D Q.ANDNOT.KC.F3, 

F? KC.F3 



IDCPSLJ D, 
D Q, 
RPTURN40 



CLEAR PSL CC BITS 
PRESERVE D AS PASSED IN Q 
FE IS USED AS FLAG FOR FPD 
FE NOT = EXCEPTION, 
FE = = INTERRUPT 

PSL CC ALL CLEAR 
RESTORE D 



.•ALGORITHM: 

WHEN AN INTERRUPT OR EXCEPTION HAS BEEN NOTED BY A STRING '^STRUCT I ON, 
THIS ROUTINE SAVES SOME VULNERABLE DATA IN R0<31:16> BEFOftc 
HANDLING THE INT/EXC SO THE INSTRUCTION CAN BE RESUMED, 
JUMPS TO FPD.RTN IF AN EXCEPTION OR INTIO IF AN INTERRUPT PENDING. 



.•INPUTS: 



; OUTPUTS: 



STATE=8 BITS OF DATA TO BE SAVED (CONTENTS VARY WITH EACH INSTR) 

>: 
R0<31:24>=PC DELTA, <23:16>=STATE. <15:00>=RO AS PASSED 



=00 
FPDPACK: 



SC STATE. 

caCl.j/bakup.pc. 

Q PC 



=10 



D.D.SWAP, 
Q SC 



PREPARE TO SAVE STATE REG 
BAKUP WILL RETURN PC DELTA 
IF GIVEN THE CURRENT PC IN Q 



PC DELTA RETURNED IN D<7:0> 
PUT IT IN D<31:24> 
STATE TO Q 



SC KC.FFF83 



;SC.-8 FOR RIGHT SHIFT 8 



r~" 



ZZ-ES0AA-124.0 ; CHAR .MIC [600,12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; CHAR .MIC C600. 12043 Character string 



E 15 

Character string 14-Jan-82 Fiche 2 Frame E15 Seguence 392 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 
: utilities 



391 



U 09E8. OD18,0034.C1CO.FA00.0081,09E9 

U 09E9. 001D.0C30.0180.FA80, 0000. 04F3 
U 04F3. 0000, 0E3C. 0180. F 800. 0000. OF 8D 



U 04F7. 0000,003C.0180.F800,0000.0EB8 



U 09EC. 001 8, 0038,1 980, FA98. 0000, 09ED 



U 09ED, 0018,0038, 1980, FA80. 0000, 09EE 



U 09EE. 0018,0038, 1980, FAA8. 0000, 09F0 



U 09F0, 0018,0038, 1980, FAAO, 0000, 09F1 



U 09F1. 0018, 1238, 1980, FA90, 2000, 05AE 



14876 
14877 
14878 
14879 
14880 
14881 
14882 
14883 
14884 
14885 
14886 
14887 
14888 
14889 
14890 
14891 
1 <>892 
14893 
14894 
14895 
14896 
14897 
14898 
14899 
14900 
14901 
14902 
14903 
14904 
14905 
14906 
14907 
14908 
14909 
14910 
14911 
14912 
14913 
14914 
14915 
14916 
14917 
14918 
14919 
14920 
14921 
14922 
14923 
14924 
14925 
14926 
14927 
14928 
14929 



FPDPACK1 



=011 



D.DAL. SC. 

qJ*cro3.and.kc. ffff3 



RCR03J) . OR . Q ,BEN/MUL 
BEN/INTERRUPT, J/INTIO 



STATE TO Q<31 :24>, 

PC DELTA TO D<23:16> 

MOVE INT/EXC FLAG TO SC TO TEST IT 

PRESERVE LOW WORD OF RO 



RO=STATE,PC DELTA, R0<15:0> 

SC EO 0? 

SC NE 0. INTIO RTN WILL DECIDE 



*********************************************** 

* Patch no. 030, PCS 04F3 trapped to WCS 1162 * 

*********************************************** 

;IF INTERNAL OR EXTERNAL INTERRUPT 
.111 

j/FPD.RTN ;SC = 0. IT'S AN EXCEPTION 



ALGORITHM: 

THIS IS A SEQUENCE OF INSTRUCTIONS THAT MERELY ZERO 
RE6JSTERS AS REQUIRED BY THE SRM FOR TERMINATING ASSORTED 
INSTRUCTIONS. THIS SEQUENCE CAN BE ENTERED AT ANY POINT 
DEPENDING ON THE INDIVIDUAL INSTRUCTION'S REQUIREMENTS. 



: INPUTS: 



NONE 



OUTPUTS: 



SPECIFIED RE6ISTERS ARE ZEROED 

JUMPS TO IB. FILL WITH PSL<FPD> CLEARED 



R3 



R24503ZER0: 

RCR3J. 


.KCZEROJ 


R0245ZERO: 

RCROJ. 


.KCZEROJ 


R245ZERO: 

RCR5J. 


.KCZERO] 


R24ZER0:' 

RCR4J. 


.KCZERO] 



R2ZER0: RCR23 KCZEPOJ, 
CLR.FPD, 
BEN/EALU 



RO 



R5 



R4 



R2 

CLEAR FPD BIT 

BRANCH ON REG WRITE FLAG 



F 15 
ZZ-ESOAA-124.0 ; CHAR .MIC C600. 12043 Character string 14-Jan-82 Fiche 2 Frame F15 Sequence 393 

; P1W124.MCR 600-12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE. WCS124 Page 392 

; CHAR .MIC [600,12043 Character string : Utilities 



U 05AE. 2014.0038,0180.F801,4200.00AB 
U 05AF. 0001 .003C, 0180, F8E8,0070,05AE 



U 09F2. 0D19.2034.C180,FA80,0000,09F4 

U 09F4. 0C19. 0034. 49C0.F800. 0104, 69F5 
U 09F5, 0815. 2016, 0180, F801 .0200.0100 



14930 =1110 

14931 STRINGFINAL: 

14932 ; 

PC&VA PC, FLUSH. IB.J/IB.FILL 






R(SC) D, SET. CC (LONG), 
J/STRTNGFINAl 



ALGORITHM: 

SHIFTS D + SO THAT PC CAN BE RESET FROM PC DELTA SAVED ACROSS INT/EXC. 
ALSO GETS STATE REG CONTENTS READY TO BE RESTORED/USED. 
CLEARS R0<31:16> 



INPUTS: 



D+Q = SAVED RO. SC=-16 



OUTPUTS: 



14933 
14934 
14935 
14936 
14937 
14938 
14939 
14940 
14941 
14942 
14943 
14944 
14945 
14946 
14947 
14948 
14949 
14950 
14951 
14952 
14953 
14954 
14955 
14956 

14957 ; 

14958 FPDUNPACK: 

14959 D DAL. SC, 

14960 RrROJ Q.AND.KC.FFFF3 
14961 

14962 

14963 Q D.AND.KC.FF3, 

14964 FE KC.FF], 

14965 D 
14966 

14967 

14968 D D.SWAP, 

14969 PZ Q+PCRETURN100 

14970 ;-= 



•;SIGN SRC 
;ALL DONE. BACK TO IB 



.-WRITE CRC RESULT IN REG 



PC RESET, R0<31:1o>=0. R0<15:0>UNM0LESTED. 
D<7:0> = STATE. ASSUMING SET BY FPDPACK, 
OTHERWISE WHATEVER WAS IN R0<31:24> 



RETURN: 



ALWAYS RETURNS 100 



;D<7:0>=PC DELTA,<15:8>=STATE 
; RESTORE RO 



.-EXTRACT PC DELTA 

.-RESET FE SO LOOKS LIKE EXCEPTION 

;D_RO AS SAVED AT FPD TIME 



;D<7:0>=STATE 
.-RESET PC 



ZZ-ESOAA-124.0 ; CHAR 
; P1U124.MCR COO. 12043 
; CHAR .MIC C600. 12043 



G 15 

.MIC [600,12043 Character string 14-Jan-82 Fiche 2 Frame 615 Sequence 394 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
Character string : M0VC3. MOVC5 



393 



14971 
14972 
14973 
14974 
14975 
14976 
14977 
14978 
14979 
14980 
14981 
14982 
14983 
14984 
14985 
14986 
14987 
14988 
14989 
14990 
14991 
14992 
14993 
14994 
14995 
14996 
14997 
14998 
14999 
15000 
15001 
15002 
15003 
15004 
15005 
15006 
15007 



.TOC " Character string 
.•GENERAL OVERVIEW OF MOVC3 + M0VC5 



M0VC3, MOVC5" 



RO 

R1 
R2 



R3 
R5 

STATE: 



REGISTER USAGE: 

LENGTH OF STRING TO MOVE (BYTE-REVERSED, IN <31:16» 

STATE AND PC-DELTA (IN FLTG PT FORMAT IN <15:0» 

ADDR OF SOURCE 

LENGTH OF FILL (-1) IN <15:0>; SIGN IS IN STATE<6> 

IF POSITIVE, IMPLIES THERE'S FILL TO DO 

IF NEGATIVE, IT'S COMPLEMENT OF EXCESS SRC, 

I.E. DEST LENGTH - SRC LENGTH (-1) ; HENCE, NO FILL 

DEST ADDR 

ORIGINAL RO DURING SRC MOVE. 

4 BYTES OF FILL CHAR DURING FILL MOVE. 

<1:0> 



00 = LWD MOVE 

01 = BYTE MOVE 
10 = WORD MOVE 

4 BACKUARDS(SRC MOVE IS IN BACKWARDS DIRECTION) 

5 FILLING(VALID ONLY WHILE MOVING FILL) 

6 NEED TO FILL (VALID ONLY WHILE MOVING SRC) 

7 FOR M0VC3/5, 1 FOR MOVTC/TUC IN THOSE PLACES 
WHERE THE TWO OPERATIONS SHARE CODE 

INITIALLY, IF SRC ADDR > DEST ADDR, THERE'S A POSSIBILITY OF OVERWRITING 

SRC BEFORE IT'S MOVED, SO R1 + R3 ADJUSTED FOR BACKWARDS MOVE 

NAMELY, R1 R1+R0, R3 R3+R0, R5 RO 

AFTER SRC IS MOVED FR*OM HIGHEST ADDR TO LOWEST, R1 R1+R5, R3 R3+R5 AND 

CODE JOINS FORWARD EXECUTION. 

AFTE* SRC MOVE, IF R2 >= 0, RO R2 + DONE 

IF fc fc < 0, THERE'S FILL TO CONSIDER. P2 0, R5 LWD OF FILL CHAR, SC NOT 0. 

RO 0-R2 (FILL COUNTER AS A POSITIVE NUMBER) *~USES MAIN FORWARD CODE. 

WHICH BRINGS US TO FPD HANDLING : 

IN MAIN LOOP, SRC ADDR IN LB. DEST ADDR IN LA 

FOR COUNT, VARIES WITH OPERATION 

IN PARTICULAR. READ FAULT & WRITE FAULT - RCCT23. 

INTERRUPT - 



ZZ-ESOAA-124.0 ; CHAR .MIC [600.1204: 



; P1U124.MCR 600.12043 
; CHAR .MIC C600. 12043 



K 15 
Character string 14-Jan-82 



Fiche 2 Frame Hi 5 



MICR02 1 L (03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 
Character string : M0VC3/5 INITIALIZATION 



Seguence 395 



Page 394 



U 044A. 0003.603D.0180,F980,0000,047E 
U 046A, 0001 ,003C. 0180. FA98,0000,09F6 
U 09F6. 0001, 203C, 0130, FB80. 0000. 09F8 

U 09F8. 0003, 0028. 1980. FA90. 1404. 69F9 

U 09F9, 001 B. 0000,1 980. F 800. 0070, 0597 

U 044E. 0003.603D, 01 80. F 980. 0000. 037E 



U 045E. 0801 ,203D. 71 EO.F 988. 0084, 60A2 



U 0C5E, 0C01.003C, 0180, FA98. 0000. 09FA 
U 09FA, 0010, 0038, 01CO.F908. 0000. 09FL 
U 09FC. 0001, 203C.0180.FB80. 0000. 09FD 



15008 .TOC 

15009 

15010 

15011 44A: 

15012 M0VC3: 
15013 

15014 
15015 

15016 46A: 
15017 



Character string 



rcct03 q.0xtcword3, 
call,j7aspc 



R[R33J> 
LC_RCCT03&R1_Al U.ALU.Q 



RCR23,NOT.O, 
STATE KCZER03 



ALU 0-KCZER03, SET. CC (LONG), 
J/MOVC 



RCCT03 Q.0XTCWORD3. 
CALL,J?SPEC 



15018 
15019 
15020 
15021 
15022 
15023 
15024 
15025 
15026 
15027 
15028 
15029 

15030 44E: 

15031 M0VC5 
15032 
15033 
15034 

15035 45E: 
15036 
15037 
15038 
15039 
15040 
15041 

15042 0C5E: 

15043 M0VC5SETUP: 
15044 
15045 
15046 

15047 RCR33 D, 

15048 D Q ~ 
15049 
15050 

15051 Q RCCT13 

15052 

15053 

15054 LC RCCT03&R1 Q 



M0VC5/5 INITIALIZATION" 



;1ST AR6 IS LENGTH 
;GET DEST ADDR 



;SAVE DEST ADDR 

•GET LENGTH + SAVE SRC ADDR 

•INITIALIZATION ONLY 

•CHANGING C.C. ROM SAVES A CYCLE HERE 



«CCT13ja, 

D D.SWAP, 
St KC.FFF83, 
CAtL, J/M0VCCMPC5 



SAVE SRC LENGTH 
GET FILL BYTE 



SAVE SRC ADDR 

COPY FILL BYTE 

D<31:24> = FILL CHAR 

PREPARE FOR A DAL 

COLLECT DESTINATION LEN.ADDR 



RETURN FROM M0VCCMPC5 HERE WITH RCCT^3 AND Q =DEST LEN, 
R2<31:16>=2 FILL CHARS, RCCT13=SRC ADDR, D=DEST ADDR, 
RCCT03 = SRC LEN 
**NOTE** - MOVTC & MOVTUC ENTER MOVC FLOWS HERE ** 

.-SAVE DEST ADDR 
;GET DEST LENGTH 



;SRC ADDR 

;SAVE SRC ADDR IN R1 , LATCH SRC LENGTH 



U 09FD, 0011, 4008, 3180, FA90,1474 4 69FE 

U 09FE, 0800,023C.0180.FA18,0000.05B5 
U 05B5, 0000. 003C. 1980. F910.1404.65B7 



ZZ-ESOAA-124.0 ; CKAR .MIC C600. 12043 
; P1U124.MCR 600.12043 MICR02 1L(03) 

; CHAR .MIC [600.12043 Character string 



I 15 
Character string 14-Jan-82 Fiche 2 Frame 115 Seguence 396 

14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 

: M0VC3/5 INITIALIZATION 



395 



U 05B7, 001D.0900.01CO.F800.0091.06F2 



U 06F2, 0858. 0338. 9180, FA08.2480.A59C 



U 06F3, 0858. 1B38.91FF.FA08. 2400, 063C 



15055 
15056 
15057 
15058 
15059 
15060 
15061 
15062 
15063 
15064 
15065 
15066 
15067 
15068 
15069 
15070 
15071 
15072 
15073 
15074 
1507J 
15076 
15077 
15078 
15079 
15080 
15081 
15082 
15083 
15084 
15085 
15086 



RCR23 D-LC-1, DT/UORD, 

SET.Ct(WORD), 

STATE KC.403 



D RCR33, 
BpN/ROR 



=101 



LC_RCCT23, STATE.KCZER03 



:DEST LENGTH - SRC LENGTH - 1 

rSET CCS ON WORD SUBTRACT A LA COMPARE 

INITIALIZE STATE TO "HEED TO FILL" 



;LOAD DEST ADDR INTO D FOR COMPARE, 
;TEST IF DEST LEN > SRC LEN 

•;PSL <C> 
;DEST<=SRC. NO FILLS, MIN = DESTLEN 



;MOVC3 + MOVC5 CONVERGING POINT 

;DEST ADDR IN D, SRC ADDR IN Q, MIN(SRCLEN,DESTLEN) IN LC 



MOVC: 



=10 



;111 

Q D-Q, 
CCX.UBCC, 
SC FE, 
IRT? 



D KC1F003. RIGHT, 

Lfe RCR13, 

SET.FPD, 

SC SC-FE, 

C3T?, J/MOVCSETFPD 

LAB RCR13, D KC.1F003. RIGHT. 
Q 0. SS OSSD~0, SET.FPD, 
IR0.C31?, J/MOVTCWHATDIR 



DEST ADDR-SRC ADDR 

SEE IF FORWARDS OR BACKWARDS MOVE 

TEST IF MOVC OR MOVTC/TUC 
IR<1>. BREAKOUT MOVC3/M0VC5 
FROM MOVTC/MOVTUC USING IR1 
FAULT VECTORS FOR MOVC ARE F81,F82 

;THIS IS AN INTERRUPTABLE INSTRUCTION 
; CLEAR SC 



GET MOVC FAULT VECTOR IN D, 
INIT FAULT FLAG & SET FPD, 
BREAK OUT ON OP AND DIRECTION 



U 059C, 0010. 0038,C5C7,3CO0, 001 0,06B6 



ZZ-ES0AA-124.0 ; CHAR 
; P1U124.MCR 600.12043 
; CHAR .MIC [600,12043 



J 15 

.MIC [600,12043 Character string H-Jan-82 Fiche 2 Frame J15 Sequence 397 

MICR02 1L(03) K-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 
Character string : M0VC3/5 INITIALIZATION 



396 



U 059E, 001 1.2000.B587.3C98. 0010,0770 



U 05C4, 001C, 0014, 6580, FA98,K86,2A00 



U 05C6, 0800,013C,0180,FA18,0000,06C6 



U OAOO, OOOD,2016,F180,FA88,0084,4002 



15087 
15088 
15089 
15090 
15091 
15092 
15093 
15094 
15095 
15096 
15097 
15098 
15099 
15100 
15101 
15102 
15103 
15104 
15105 
15106 
15107 
15108 
15109 
15110 
15111 
15112 
15113 
15114 
15115 
15116 
15117 
15118 
15119 
15120 
15121 
15122 



=0* ; 

MOVCSETFPD: 

IDCFPDA3 D, SS OfcSD 0, 

Q_LC, 

CCK.UBCC, 

J/MOVCFLP 



•;ALU <C> 

;SD TELLS FAULTS FROM INTERRUPTS 
;SRC ADDR > OEST ADDR. 

.-MOVE FORWARD 



;1 * 

IDCFPDA3 D, SS OfcSD 0, 

ALU Q-LC7 

LA RAC33, 

CLK.UBCC, 

J/MOVCBCKWDSMAYBt 



;MAY BE BACKWARDS MOVE; IF SRC OUT 
;0F RANGE OF DEST, CAN MOVE FORWARD 
; LATCH DEST ADDR 



SUBROUTINE TO BUMP R1 & R3 BY AMOUNT IN Q AND SET BACKWARDS FLAG. 
ALSO SETS SC=R3<1:0>. IF CALLED WITH BEN/C31 WITH C31 SET, DOES 
NOT RETURN BUT ENTERS FORWARD MOVE FLOWS. 



=0 * ; 

MOVCRBUMP : 

RCR33 LA+Q, 

SC ALD, 

STATE STATE. OR. KC. 103. 

J/MOVCRBUMP.1 



•;ALU <C> 

.-ADJUST DEST ADDR 

:T0 BE USED FOR OFFSET INDICATOR 

;SET BACKWARDS BIT 



;1* 

D RCR33, 

Z 7 , 

J/MOVCFTST 



IT'LL BE FORWARD DIRECTION 
ANY TO DO 



MOVCRBUMP. 1: 

RCR1J Q+LB, 

SC SC7ANDN0T.Kt".FFFC3, 

RETURN2 



.•ADJUST SRC ADDR 

.-SAVE <1:0> OF DEST ADDR 



U 00A2, 0D1B.O015.0580.F8O0.0O10.037E 



U 0082, OC03,403D,0180,F990.00CO,047E 



U OOF 2, 0019.2024.C180,FA90,0000,OA01 



U 0AO1. OOIO. 003A,01CO,F910. 0000, 0800 



ZZ-ESOAA-124.0 ; CHAR .MIC C60OJ2043 
; P1U124.MCR 600-1 204 J MICR02 1L(03) 

; CHAR .MIC C600. 12043 Character string 



K 15 

Character string H-Jan-82 Fiche 2 Frame X15 Sequence 398 
14-Jan-82 15:30:i6 VAX11/780 Microcode : PCS 01, FPLA OE. WCS124 Page 
: M0VC3/5 INITIALIZATION 



15123 
15124 
15125 
15126 
15127 
15128 
15129 
15130 
15131 
15132 
15133 
15134 
15135 
15136 
15137 
15138 
15139 
15140 
15141 
15142 
15143 
15144 
15145 
15146 



397 



SUBROUTINE TO GET A LENGTH/ADDRESS PAIR OF SPECIFIERS 
USED BY MOVC, CMPC. MOVTC, MOVTUC. 

;HANDLE CALL, SPEC + CALL.ASPC SEQ 



=010**1* 

M0VCCMPC5: 

D DAL.SC. 
ALU O+KC.1.1 
CLK.U8CC, 
CALL, J /SPEC 



=011**1* 



RCCT2J D.0XTCWORD3. 

DO. " 
CAlL.J/ASPC 



=111**1* 



RCR23 Q.ANDNOT.KC.FFFF3 



Q RCCT23, 
RPTURNC8003 



;D<31:16> = 28YTES OF FILL 
.-CLEAR OUT ALU CC 
.•HANDY FOR LOOSER BEN/IR LATER 
•WILL RETURN WITH D IN Q 



SPEC RETURNS 10 

SAVE DEST LENGTH 

RESTORE 2 BYTES OF FILL CHAR 

THIS'LL PUT FILL BYTES BACK INTO Q 



SAVE 2 BYTES OF FILL IN R2<31:16> 



LOAD Q WITH (USUALLY) DEST LEN, 
RETURN TO CALLER 



ZZ-ESOAA-124.0 : CHAR 
; P1W124.MCR 600-1 20A3 
; CHAR .MIC £600,12043 



.MIC C600J20AJ 

MICR02 1L(03) 
Character string 



L 15 

Character string 14-Jan-82 Fiche 2 Frame L15 Seguence 399 
H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
: MOVC3/5 MAIN LOOPS 



U 06B6, 0800, 013C,0180,FA18, 0000, 06C6 



U 06B7. OC00.003C,0180,F800,0000,0733 



U 06C4, 0000.003C. 0180, FA08, 0000, 06C5 



U 06C5, 0000, O03D, 0180, F898, 0000, 05C4 



U 06C6, 0819,2C08,OD80,F990,1414,46E0 



U 06C7, 0800,1 628, 79C0 F890,1404,47A3 



398 



15K7 
15148 
15149 
15150 
15151 
15152 
15153 
15154 
15155 
15156 
15157 
15158 
15159 
15160 
15161 
15162 
15163 
15164 
15165 
15166 
15167 
15168 
15169 
15170 
15171 
15172 
15173 
15174 
15175 
15176 
15177 
15178 
15179 
15180 
15181 
15182 
15183 
15184 
15185 
15186 
15187 
15188 
15189 



.TOC 



Character string 



MOVC3/5 MAIN LOOPS" 



.-COUNT IN Q. SAVE IN RCCT2J ON EVERY ITERATION 

;ALU CC <Z> SET ON Q 

;SC = = NOT FILL 

;R5 = 4 BYTES OF FILL CHAR 



=110 
MOVCFLP: 



D RCR33, 

Z?, 

J/MOVCFTST 



•; INTERRUPT 

;DEST ADDR 
.-MORE TO 00? 



MOVCINTF; 



;111« 



D Q, 
J7M0VCPACKST 



;6ET LOOP COUNTER IN D FOR SWAP, 
;G0 PACK STUFF INTO RO 



;NEXT 2 STATES PROVIDE FOR A TIMELY SAVING OF 1 STATE IF PLACED AT 
:TH1S LOCATION 



=100 
MOVCREADJUST: 

LAB RCR13 



;10 1 

LA RAC33, 
CAL"L,J/MOVCRBUMP 



; 1 10 

MOVCFTST: 

D Q-KC.3>1, RCCT2J ALU, 
CDCUBCC, 

state state. andn0t.kc.3j, 

ben/mOl, 

j/movcoffset 



AFTER A BACKWARDS MOVE 
SRC ADDR TO LB 



DEST ADDR TO LA 

WILL RETURN TO 111 OF CONSTRAINT 

PART OF A Z? ALSO 

ASSUME 4 BYTES LEFT, SAVE NEW CT 
SET C31 IF 4 OR MORE BYTES LEFT 
ASSUME LONGWORD TRANSFER 
BRANCH ON DEST OFFSET + IF FILL 



;111- 



D N0T.RCR23, Q N0T.RCR2J, 
STA1E STATE. AN5NOT.KC.30J, 
BEN/STATE7-4, 
J/MOVCMAYBEFILL 



-;END OF MOVC FORWARD (DUE TO BEN) OR 
.FROM CALL AT MOVCREADJUST 
;GET -(FILL COUNT) IN D AND Q LOW 

; CLEAR FILL + BACKWARDS BITS 
.-NEED TO FILL? 



ZZ-ESOAA-124.0 ; CHAR 
; P1W124.MCR 600-12043 
; CHAR .MIC C600. 12043 



.hK C600. 12043 

MJCR02 1L(03) 
Character string 



Character string 



H 15 
14-Jan-82 



14-Jan-82 15:30:16 VAX1 1/780 Microcode 
: M0VC3/5 MAIN LOOPS 



Fiche 2 Frame M15 



Sequence 400 



U 06E0. 0000,033C,C980,3E08,0200,05C8 



U 06E1, 0O0O,0O3C.0180.FA08.0200.05D9 



U 06E2. 0000.033C.0180.FA08,0200,05DC 



U 06E3. 0000.003C.0180.FA08.0200.05D9 



U 06E4, 0000, 033C, 01 E0.FA08. 0000. 05EC 



U 06E5. 0019, 2000. 05C0.FA08, 1414. 25EE 



U 06E6, 0019. 0314, 09C0.FA08, 1414, 25EC 



U 06E7. 0019, 2000, 05C0.FA08, 1414, 25EE 



15190 

15191 

15192 

15193 

15194 

15195 

15196 

15197 

15198 

15199 

15200 

15201 

15202 

15203 

15204 

15205 

15206 

15207 

15208 

15209 

15210 

15211 

15212 

15213 

15214 

15215 

15216 

15217 

15218 

15219 

15220 

15221 

15222 

15223 

15224 

15225 

15226 

15227 

15228 

15229 

15230 

15231 

15232 

15233 

15234 

15235 

15236 

15237 

15238 

15239 

15240 

15241 

15242 

15243 

15244 



=000 ; 

MOVCOFFSET: 

LAB RCR13, 
VA CA. 

iDra.D, 

C31?. 
J/MOVCFWC 



;001 

LA8 RCR13, 
VA JX 
J/MOVCFB 



PCS 01, FPLA OE, WCS124 

;8EN/MUL - ALL 8 WAYS 

DEST ADDR = BYTE 0, NOT FILL 

LOAD SRC ADDR 

SAVE UPDATE COUNT 

IS THERE ROOM FOR THIS LWD? 

•;DEST ADDR = BYTE 1, NOT FILL 



Page 399 



;010 

LAB RCR13, 
VA CA, 
C3T?, 
J/MOVCUD 



-;DEST ADDR = BYTE 2, NOT FILL 



-On 

LAB RCR13, 
VA DV, 
J/MOVCFB 



-;DEST ADDR = BYTE 3, NOT FILL 



;100 

LAB RCR13, 
Q D. 
C3l 7 
J/MOVCFILLMORE 



DEST ADDR = BYTE 0, FILL 
NECESSARY FOR FPD INTERFACE 
COPY DECREMENTED COUNTER 



*********************************************** 

* Patch no. 095, PCS 06E4 trapped to WCS 119E * 

*********************************************** 



; 1 01 

LAB RCR13, 

Q G-KC.13, 

CDC.UBCC, 

STATE STATE. OR. KC. 13, 

J/MOVtFILLWR 



■;DEST ADDR = BYTE 1, FILL 
,-NECFSSARY FOR FPD INTERFACE 
.-ROOM FOR 1 BYTE? 



;110 

LAB RCR13. 

C D+KC.23. 

CL"K.UBCC, 

STATE STATE. OR. KC. 23. 

C31?. 

J/MOVCFILLMORE 



DEST ADDR = BYTE 2, FILL 
NECESSARY FOR FPD INTERFACE 
UPDATE COUNTER FOR A WORD MCVE 
WILL THAT FIT? 



• 1H 

LA8 RCR13, 
Q 0=KC13. 

cCk.ubcc, 

state state. or. kc. 13, 

J/MOVtFILLWR 



•;DEST ADDR = BYTE 3, FILL 
; NECESSARY FOR FPD INTERFACE 



U 05C8, 0819,2COO,0980,F800,0010.05D9 



N 15 

ZZ-ESOAA-124.0 ; CHAR .MIC C600, 12043 Character string H-Jan-82 Fiche 2 Frame N15 Seguence 401 

; P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 400 

; CHAR .MIC C600. 12043 Character string : M0VC3/5 MAIN I OOPS 



U 05CA, 0018.1514,1 1E0, 4288, 0000. 06C8 

U 05D9. 0018, 0014. 0580, FA88. 0000. 0A06 

U 05DB, 0018.0014.0980.FA88.0000.0A04 

U 0AO4, 0000. 403C.09E0, 4000,1 404, 26CF 



U 0A06, 0019.A000.05C0, 4000, 1414. 26CF 



U 05DC, 0819,2C00.0980,F800.0010.05D9 



U 05DE, 0819,2000, 0980, F800, 0010. 05D8 



15245 =0* 

15246 MOVCFWC: 

15247 D Q-KC.23, 

15248 CCK.UBCC. 

15249 D<1)?, 

15250 J/MOVCFB 
15251 

15252 ;1* 

15253 MOVCFL: 



ALU <C> 

NOT ENOUGH ROOM FOR A LWD 
ROOM FOR 1 BYTE OR 1 WORD? 



15254 
15255 
15256 
15257 
15258 
15259 

15260 =*01 

15261 MOVCFB: 
15262 
15263 
15264 
15265 

15266 MOVCFWD 
15267 
15268 
15269 
15270 
15271 
15272 
15273 
15274 
15275 
15276 MOVCRDBYTE 



DCLONG3..CACHE, 

QD. 

RCR13 LA+KC.43, 

BEN/AL"U1-0. 

J/MOVCFLUA 



DECREMENTED COUNTER 

UPDATE SRC ADDR FOR NEXT REFERENCE 

CHECK ON BYTE OFFSET OF SRC ADDR 



-;D<1> VIA BEN/MUL, SC IS ZERO 



RCR13 LA+KCi:, 
J/MOVtRDBYTE 



;*11 

RCR13J.A+KC.23 



DCWORD3 CACHE, 

QJ>, 

STATE STATE. OR. KC. 23, 

J/MOVf' !TE 



UPDATE SRC ADDR TO REFLECT THIS READ 



COPY DECRMENTED COUNTER 



15277 
15278 
15279 
15280 
15281 
15282 
15283 
15284 
15285 
15286 

15287 =0* 

15288 MOVCWD 
15289 

15290 
15291 
15292 
15293 
15294 
15295 
15296 
15297 
15298 



DCBYTE3 CACHE, 

Q Q-KC.T3, 

CLK.UBCC, 

STATE STATE. OR. KC. 13, 

J/MOVC> WRITE 

*********************************************** 

* Patch no. 033, PCS 0A06 trapped to WCS 1165 * 

*********************************************** 



D Q-KC.23, 
ClK.UBCC, 
DO)?, 
J/MOVCFB 



ALU <C> 

DEST ON WORD (10) BOUNDARY 

CHECK FOR AT LEAST 2 BYTES TO MOVE 



;D<1> VIA BEN/MUL 



;1* 

D Q-KC.23, 
CLK.UBCC , 
J/MOVCFWD 



B 16 

ZZ-ES0AA-124.0 ; CHAR .MIC [600.12043 Character string K-Jan-82 Fiche 2 Frame 816 Sequence 402 

; P1W124.MCR 600.12043 MICR02 1L(03> 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 

; CHAR .MIC [600,12043 Character string : M0VC3/5 MAIN LOOPS 



401 



U 06CB. 0018,0024.0D80.F800,0284.6A08 



U 06CF, 0000, 173C, 01 80, F898, 4300. 0728 



U 0728. 0018, 0E14, 1180,3298,0000,0686 



U 0729. 001 8, 8E 38, 0580, 3000.1 486. 46F 6 



U 072A, 001 8. '*E 38, 0980, 3000,1 486, 46F 6 



15299 
15300 
15301 
15302 
15303 
15304 
15305 
15306 
15307 
15308 
15309 
15310 
15311 
153i2 
15313 
15314 
15315 
15316 
15317 
15318 
15319 
15320 
15321 
15322 
15323 
15324 
15325 
15326 
15327 
15328 
15329 
15330 
15331 
15332 
15333 
15334 
15355 
15336 
15337 
15338 
15339 
15340 
15341 
15342 



;SC = 

;Q + IDCT23 = COUNT - 4 

;ALU Z SET ON CURRENT CONTENTS OF Q 

;LA8 = CURRENT (UNALIGNED) SRC ADDR 

;R1 = NEXT SRC ADDR(ALSO UNALIGNED), I.E LA8 + 4 

;D = CORRECT DATA FOR NEXT WRITE, I.E APPROPRIATELY ALIGNED 

; BECAUSE OF 1 READ/LONG THAT WAS NOT AT BYTE OFFSET 



=1011 
MOVCFLUA: 



VA LA.ANDN0T.KC.3J, 
SC KC.33, 
J/MOVCFLUA1 



-;ALU <1:0> 
; ALWAYS READ ALIGNED 



;1111 

MOVCFWRITE: 

LA_RA[33, 
VA^LA, 

INTRPT. STROBE. 
FE ,SC. 
STATE 1-0?, 
J/MOVCWRITE 



.-UPDATE LA ONLY 

.•INTERRUPTS PENDING? 
.-SAVE SC FOR A STATE OR SO 
;HOW MANY BYTES TO WRITE? 



=**00 ; 

MOVCWRITE: 

CACHE DCLONGJ. 

RCR33 LA+KC.43, 

BEN/jRTERRUPT. 

J/MOVCFLP 



; **Q1 

CACHE.DCBYTE3. 

STATE STATE. ANDNOT.KL". 13. 

ALU KTJ.13.SC ALU, 

BEN7INTERRUPT, 

J/MOVCBWUPDATE 



; **10 

CACHE DCWORD3. 
STATE~STATE.ANDNOT.KC. 23, 
ALU K~.23,SC ALU, 
BEN7INTERRUPT, 
J/MOVCBWUPDATE 



•; STATE <1 :0> 
;4 BYTES TO WRITE 

-;1 BYTE TO WRITE 
;SC_1 FOR ADDR INCREMENTATION 

-;2 BYTES TO WRITE 
;SC_2 FOR ADDR INCREMENTATION 



ZZ-ESOAA-124.0 ; CHAR 
; P1W124.MCR 600,12043 
; CHAR .MIC [600.12043 



C 16 
.MIC [600,12043 Character string 14-Jan- 82 

MICR02 1L(03) 14-Jan~82 15:30:16 7AX11/780 
Character string : MOVC3/5 MAIN LOOPS 



Fiche 2 Frame C16 Sequence 403 
Microcode : PCS 01, FPLA OE, WCS124 Page 402 



U 06F6. 0818,01 14, 1D80,FA98. 0081. 06C6 



U 06F7. OC18,0014,1D80.FA98,0000,0733 



U 05EC, 0019, 0C14.09CO.F800, 1414, 2735 



U 0: c E, 0800,003C,0180,F8A8,0000,06CF 



U 0735, 0019, 2014, 05C0,F800,1414,A5EE 



U 0737, 0800,003C,0180,F8A8.0000,06CF 



15343 
15344 
15345 
15346 
15347 
15348 
15349 
15350 
15351 
15352 
15353 
15354 
15355 
15356 
15357 
15358 
15359 
15360 
15361 
15362 
15363 
15364 
15363 
15366 
15367 
15368 
15369 
15370 
15371 
15372 
15373 
15374 
15375 
15376 
15377 
15378 
15379 
15380 
15381 



=110 
M0VC8WUPDATE : 

R[R33_L/>K[SC3, 

D ALU, 

sr_FE, 

11. 
J/MOVCFTST 



;111 

RCR3.1.LA+KCSC3, 

J7MOVCPACKST 



=0 * ; 

MOVCFILLMORF: 

Q D+KC.23, 

STATE STATE.0R.KC.23, 

CLK.LfiCC, 

D(1)?, 

J/MOVCF ILLBYTE 



;1* 

MOVCFJLLWR: 

LA RAC53. 
DjX 

J7MOVCF WRITE 



=101 

MOVCF ILLBYTE: 

Q Q+KC.13, 

CCK.UBCC. 

STATE STATE-KC.13, 

J/MOVtFILLWR 



;1H 

i A RAC5J , 
D IX 
J7MOVCFWRITE 



; INTERRUPTS? 



;GET 3YTE OFFSET FOR 8EN/MUL 
.-RESTORE SC 
;ANY LEFT? 



.-THERE'S AN INTERRUPT PENDING 

; RESTORE R3 AND PUT LOOPCOUNT IN D 

;60 PACK RO AND HONOR INT. 

-;ALU <C> 

;Q_COUNT-4+2 

;IS THERE 1 BYTE OR 1 LWD LEFT? 



.•PRESERVE LB WITH R1 FOR FAULTS + INTERRUPTS 



•;D<1> VIA BEN/MUL 
;ONLY 1 BYTE LEFT 
;Q_COUNT-2+1 

.-CLEAR STATE <1> + SET STAT.E <0> 



;AT LEAST 1 WORD LEFT 
;GO MOVE 1 WORD 



D 16 

ZZ-ESOAA-124.0 ; CHAR .MIC C600.12043 Character string H-Jan-82 
P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Mi 
CHAR .MIC [600, 12043 Character string : M0VC3/5 MAIN LOOPS 



U OA08, 0043,0010,A080,F983,0084,661A 



U 0618. OC00.003C, 1980, F800, 0284, 65C8 



U 061A. 0018. 0214, 11E0. 4380. 0000. 0742 



u 0743, 0DO0.0O3C.7DEO.F898.4284.6A09 



U 0746. 0DO0.OO3C.65E0.F 898. 4284. 6A09 



J 0747. ODOO,003C,01EO,F898,4284,6A09 



U 0A09, 001 8, OE 14, 11 80, 3298, 0000, 0726 



15382 
15383 
15384 
15385 
15386 
15387 
15388 
15389 
15390 
15391 
15392 
15393 
15394 
15395 
15396 
15397 
15398 
15399 
15400 
15401 
15402 
15403 
15404 
15405 
15406 
15407 
15408 
15409 
15410 
15411 
15412 
15413 
15414 
15415 
15416 
15417 
15418 
15419 
15420 
15421 
15422 
15423 
15424 
15425 
15426 
15427 
15428 
15429 
15430 
15431 
15432 
15433 
15434 
15435 
15436 



MOVCFLUA1 : 

VA VA+4 . 

ALO 0+MASr+1 , 

RCCT03 ALU. RIGHT, SI/ASHR, 

SC KC.FFE03, 

J/MOVCUNLRD 

=0* ; 

MOVCUNALMORE: 
VA.LA. 
SC KCZER03, 
D 5, 
J7M0VCFUC 

; 1 * 

MOVCUNLRD: 

DCLONG3 CACHE, 

QD, 

ll RCCT03&R1 LA+KC.43, 

BER/ROR, 

J/MOVCUNSHF 



=010 

MOVCUNSHF 

=011 



LA RAC33, 
VA LA 

INTRPT. STROBE, 
D DAL.SC, Q D, 
St\ KC.183. " 
J/MOVCUNURITE 



;110 

LA.RAC33, 
VA,LA, 

INTRPT. STROBE, 
D DAL.SC, Q D, 
St KC.103, 
J/MOVCUNWRITE 

;111 

LA.RAC33, 
VA LA, 

INTRPT. STROBE, 
D DAL.SC, Q D, 
St KC.83, " 
J/MOVCUNWRITE 



MOVCl'WRITE: 

CACHE DCL0NG3, 
RCR3J LA+KC.43. 
BEN/INTERRUPT, 
J/MOVCUNINT 



Fiche 2 Frame D16 Sequence 404 
crocode : PCS 01, FPLA OE, WCS124 Page 403 



PEPARE TO READ NEXT LWD ALIGNED 
SC=3 SO CREATE FFFFFFF8, 
SHIFT RIGHT TO GET FFFFFFFC (-4) 
NEED -32 TO GET CORRECT DATA FROM 
Q INTO D FOR NEXT WRITE 

ALU <C> 

NO MORE UNALIGNED SRC MOVES 

RESTORE VA 

+ SC 

+ D 

+ JOIN MAIN FORWARD LOOP 



COPY PREVIOUS ALIGNED READ DATA 
UPDATE FOR NEXT READ 
CHECK LA<1:0> 



;LA<1:0> 

-;LA = 01 
; PRESERVE R1 IN LB 



;SC = 24 DEC 
•;LA <1:0> = 10 



•;LA <1:0> = 11 



.-WRITE A LONGWORD ALIGNED 

;INCR DEST ADDR . 

;NOW BYTE OF 'NEXT" LWD 



ZZ-ESOAA-124.0 ; CHAR 
; P1W124.MCR 600-12043 
; CHAR .MIC r.600. 12043 



E 16 

.MIC [600,1204!] Character string 14-Jan-82 Fiche 2 Frame E16 Sequence 405 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
Character string : M0VC3/5 MAIN LOOPS 



404 



U 0?26, 0C10, 01 34, C9F0,2E08, 0200, 05BC 



U 0727, 0000. 003C.C9F0,2C00, 0000,0687 



U 058C, 0819. 2000, 11E0.F993. 0010, OAOA 



U 05BD, 0800,1628.79C0,F890,1404,47A3 



U OAOA, OC11.0300.C9C0.3COO, 0000,0618 



15437 
15438 
15439 
15440 
15441 
15442 
15443 
15444 
15445 
15446 
15447 
15448 
15449 
15450 
15451 
15452 
15453 
15454 
15455 
15456 
15457 
15458 
15459 
15460 
15461 
15462 
15463 
15464 
15465 
15466 
15467 
15468 
15469 
15470 
15471 



=110 
MOVCUNINT: 

Q IDCT23, 
Lfe RCR1J, 
VA_£A.AND.LC, 
Z 7 7 

J/MOVCUNMORE 



INTERRUPTS? 

NO INTERRUPTS PENDING 

D MOST RECENT U9 READ 

LOAD COUNTER 

LATCH SRC ADDR 

MASK OUT LOW BITS 

MORE TO DO? 



;111 

Q IDCT23, 
J7MOVCINTF 



MOVCUNMORE: 

RCCT2J Q-KC.43, 

D Q-KC.43, 

Q"D, 

CtK.UBCC, 

VA VA+4, 

J/MOVCUNOTHER 



; 1 „ 

D NOT.RCR23, Q N0T.RCR23, 
STATE STATE. AND"NOT.K[. 303, 
BEN/STATE7-4, 
J/MOVCMAYBEFILL 



;GET UN-INCREMENTED COUNTER 

-;ALU <Z> 

.•ANOTHER LWD LEFT TO DO? 
.-MOST RECENT LWD READ 



•; COUNT = 
;GET -(FILL COUNT) IN D AND Q LOW 



MOVCUNOTHER: 

IDCT23 D, 
Q D-LC. 
D Q, 
C3l?, 

J/MOVCUNALMORE 



;SAVE DECREMNTED COUNTER 
.•RESTORE COUNTER (LC=-4) 



ZZ-ESOAA-124.0 ; CHAR .MIC [600. 12043 
; P1U124.MCR 600.12043 MICR02 1L(03) 

; CHAR .MIC C600. 12043 Character string 



F 16 

Character string H-Jan-82 

14-Jan-82 15:30:16 VAX1 1/780 Mi 
: M0VC3/5 BACKWARDS MOVE 



U 0770, 0010.0339,01 CO.FAA8.0010.05C4 



U 0772, 0819.3400.1 180. FB10.4010. 0765 



U 0773, 0000.003C.01CO.FA28.0000.06C4 



U 0765, 0018,0300,1 180, FA88, 0284,661 C 



U 0767, 0018. 0000, 0580, FA88, 0284, 6A0C 



U 061C, 001 8. 0000. 0580. FA88, 0284, 6A0C 



U 061E, 0000, 0E3C05E0. 4098,1404, 4786 



15472 
15473 
15474 

15475 
15476 
15477 
15478 
15479 
15480 
15481 
15482 
15483 
15484 
15485 
15486 
15487 
15488 
15489 
15490 
15491 
15492 
15493 
15494 
15495 
15496 
15497 
15498 
15499 
15500 
15501 
15502 
15503 
15504 
15505 
15506 
15507 
15508 
15509 
15510 
15511 
15512 
15513 
15514 
15515 
15516 
15517 
15518 
15519 
15520 



.TOC 



Character string 



=00 ; 

M0VC8CKWDSMAYBE : 
RCR53 LC, 
QLC. 
crK.UBCC, 
C31 7 , 
CALUJ/MOVCRBUMP 



Fich» 2 Frame F16 Sequence 406 
crocode : PCS 01. FPLA OE, WCS124 Page 405 

: M0VC3/5 BACKWARDS MOVE" 

;MOVCRBUMP CALL CONSTRAINT 

.•COUNTER 

;MAY BE SO CHECK IT 
.•DETERMINE IF FWD OR BCkWRD 



=10 
MOVCRLP: 



EXITR: 



LAB.RHRCCT23 Q-KC.43. 

D Q-KC.43. ~ 

CCK.UBCC, 

INTRPT. STROBE. 

BEN/SC. 

J/MOVCBCKSRC 

;11- 

Q RCR53, 

J7M0VCREADJUST 



.-ALU <Z> 

.-MORE TO DO 
.-DECREMENT COUNTER 



;SC > 0? 



•;ALL DONE 
;ALL DONE WITH SRC MOVE 



=101 ;- 

MOVCBCKSRC: 

RCR138VA LA-KC.43, 
SC KC.437 
CST 9 , 
J/M0VCBCKSRC2 



■;SC 6T 

;SC=0 - MOVE A LWD 
.-ASSUME IT'S A LWD 
.-TEST IF 4 OR MORE BYTES LEFT 



; m 

RCR138VA LA-KC.13. 
SC KC.13T 
J/M0VCRDBCK1 



DECREMENT SRC ADDR f OR 1 BYTE'S WORTH 
SET BYTE FLAG 



=0 * ; 

M0VCBCKSRC2: 

RCR13&VA.LA-KC.13, 
SC KC.13T 
J/M0VCRDBCK1 



•;ALU <C> 

;A BYTE 

;SET BYTE FLAG 



; 1 * 

DCL0NG3 CACHE, 

Q D. 

LA RACR33 

STATE STATE .ANDICT.KC. 13. 

BEN/IRTERRUPT. 

J/MOVCBCKWRITE 



A LWD 

READ A LWD 
DUPLICATE COUNTER 
LATCH DEST ADDR 

;NOTE IT'S NOT A BYTE 



U 0786. 0018.1700.1D80,FA98,0282,05FC 



U 0787, OOOC, 0038. 01 80, FB90, 0000,0411 



G 16 

ZZ-ESOAA-124.0 ; CHAR .MIC [600, 12043 Character string H-Jan-82 Fiche 2 Frame 616 Sequence 407 

; P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 406 

; CHAR .MIC C600. 12043 Character string : M0VC3/5 BACKWARDS MOVE 



U 05FC, 0000, 01 3C,F 180, 3000. 0084, 4772 



U 05FD, 0000, 8 13C.F 180, 3000, 0084, 4772 



U OAOC. O019.AE00.O5C0, 4098, 1414, 2786 



15521 -110 ; 

15522 MOVCBCKURJTE: 

15523 RCR33&VA LA-*[SC3, 

15524 SC ALU, 

15525 BER/STATE3-0. 

15526 J/M0VC8CKWR1 
15527 

1 5528 ; 1 1 1 

15529 LC RCH23&R1 LB, 

15530 J/MOVCINTR " 
15531 

1 5532 =* * *0 ; ■ 

15533 M0VCBCKWR1: 

15534 CACHE J)[L0NG3. 

15535 SC SC.ANDN0T.K[.FFFC3, 

15536 Z?7 

15537 J/MOVCRLP 
15538 

15539 ;***1 

15540 CACHE J)[BYTE3, 

15541 SC SC.ANDN0T.KL.FFFC3, 

15542 Z?7 

15543 J/MOVCRLP 
15544 

15545 ; - 

15546 M0VCRD8CK1: 



-; INTERRUPT? 

; DECREMENT DEST ADDP FOR BYTE OR LONG 
.-PREPARE LO BIT FLAG 
.-BRANCH ON LWD OR BYTE 



-.•INTERRUPT PENDING 



•; STATE <3:1> NEVER SET 



; PRESERVE BITS <1:0> 
;MORE TO DO? 



;BYTE WRITE 



15547 
15548 
15549 
15550 
15551 
15552 
15553 
15554 
15555 
15556 
15557 



D[SYTE3 CACHE, 

LA RACR33, 

Q S-k:.13. 

CDc.UBCC, 

STATE STATE. OR. <C. 13, 

BEN/INTERRUPT, 

J/MOVCBCKWRITE 



READ 1 BYTE 

DECREMENT COUNTER FOR 1 BYTE 

NOTE IT'S A BYTE OPERATION 



*** **************************** **************** 

* Patch no. 032, PCS OAOC trapped to WCS 1164 * 

*********************************************** 



H 16 

ZZ-ESOAA-124.0 ; CHAR .NIC C600. 12043 Character string 14-Jan-82 Fiche 2 Frame K16 Sequence 408 

; P1U124.MCR 600.12O4J MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01 , FPLA 0E. WCS124 Page 

; CHAR .MIC [600. 12043 Character string : M0VC3/5 BACKWARDS MOVE 



407 



U 07A3, 0019. 2034. C180,FA80,0000,09EE 



U 07A7, 0B1F. 0000.6580, FAF8, 0084. 6A0D 



U OAOD, 0D18. 0034. C1 CO, FA78, 0010. OAOE 



U OAOE, 0001. 0028. 7580. FAA8.1 404, AA10 



J 0A10. 0018. 0038. C180.FA90, 0000, 0686 



15558 
15559 
15560 
15561 
15562 
15563 
15564 
15565 
15566 
15567 
15568 
15569 
15570 
15571 
15572 
15573 
15574 
15575 
15576 
15577 
15578 
15579 
15580 
15581 
15582 
15583 
15584 
15585 
15586 
15587 
15588 
15589 
15590 
15591 
15592 
15593 
15594 
15595 
15596 
15597 
15598 
15599 



COME HERE WHEN MOVE LOOP EXHAUSTED - BEN ON STATE<6> 

TO TELL WHETHER TO FILL OR NOT. 

D AND Q HAVE -(FJLL COUNT) IN BITS 15:0, AND THE COMPLEMENT 

OF 2 FILL CHARACTERS IN 31:16. 



=*011 ; 

MOVCMAYBEFILL 



;011 



PCfcVA PC, FLUSH. IB, 

CLR.FPD, J/MOVCEXIT 



-.•STATE <6> 



NO FILL NECESSARY 
RESET IB (ONLY NECECESSARV \\ UE 
WERE RESTARTED) AND 60 CLEAR REGS 



RCR03 Q.AND.KC. FFFF3, 
J/R245ZER0 

RCR153JMJ, D.D.SWAP, SCJCC.103 



Q RCR153.AND.KC. FFFF3. 
CEK.UBCC, D.DAL. SC 



RCR53 NOT.D, 
STATE STATEHCC.203 



RCR23_Kt.FFFF3, J/MOVCFLP 



MOVCEXIT: 

RCR03 Q.AND.KC.FFFF3, 
' PC.PC+1.L0AD.IB 

RCR53 0, D 0. Q 0. 
J/MOVGETOUT 



USE THIS CODE UNTIL YOU 
UNDERSTAND HOW THE IB WORKS. 

NEED TO FILL 

NEED TO FILL. R2 HAD -(FILL CT) 
IN <15:0>; NEGATE IT AND SET UP 
TO REPLICATE FILLS FROM R2<31:16> 



CLEAR HI-ORDER CRUD FROM COUNT, 
SET Z ON IT. PUT 4 FILLS IN D 



STORE FILLS IN R5, CLEAR BIT 6 
(NEED TO FIIL), SET BIT 5 (FILLING) 



SET UP R2 FOR NEXT EXIT. GO FILL. 
(SC .NE. TO INDICATE ULLS) 



THIS IS THE END 

SET RO TO MAX(SRCLEN-DSTLEN,0) 
START RELOADING INSTRUCTION BUFFER 

ZERO R5 AND PREPARE TO ZERO 
R2 AND R4 AND EXIT VIA IRD. 



U 0F81, 0000.003C, 0180, FA98, 0000. 0F82 

U 0F82, 0OOC,0038.O183.FB90,0000.0A11 

U 0A11, 0813, 0910,0180, F800, 0000, 0732 

U 0732, 0819, 0014, OD80,F800, 0000,0733 

U 0733. 0B14,0038,19C2,F800,0094,6624 



ZZ-ESOAA-124.0 ; CHAR 
; P1W124.MCR 600.12043 
; CHAR .MIC C600. 12043 



I 16 
•MIC C600. 12043 Character string 14-Jan-82 Fiche 2 Frame 116 Sequence 409 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 
Character string —.--»— .- 



U 0624 , 0001 , 003D , 0D80 , F A80 , 1 404 , 4EB8 

U 0626, 0009, 5230, 01 80, FA80, 1400, OOF 4 
U 00F4, 0000, 0E3C. 0180, F800, 0000, 0F8D 



U 00F5, 0000.003C, 0180, F800, 0000, 0EB8 



15600 
,15601 
; 15602 
15603 
15604 
15605 
15606 
15607 
15608 
15609 
15610 
15611 
15612 
15613 
15614 
15615 
15616 
15617 
15618 
15619 
15620 
15621 
15622 
15623 
: 15624 
15625 
15626 
15627 
15628 
15629 
15630 
15631 
15632 
15633 
15634 
15635 
15636 
15637 
15638 
15639 
15640 
15641 
15642 
15643 
15644 
15645 
15646 
15647 
15648 



M0VC3/5. MOVTC, MOVTUC FPD 
.TOC " Character string : MOVC3/5, MOVTC, MOVTUC FPD" 
;THE FAULT VECTOR FOR M0VC3/5 + MOVTC/TUC IS FORCED TO BE F8v. 



408 



OF 81 



RCR33LA 



OF 82: 
MOVC.RDFAULT: 

LC RCCT23SR1 LB, SD NOT.SD 



MOVCINTR: 



=10 



D O+LC+1, 
IR1? 



DJHKC.33 



MOVCPACKST : 

D D.SWAP, Q PC, SC KCZER03, 
S5 SD. CLK.QBCC " 



=0* 



=*1*0 



RCR03 D. 
STATElSTATE.ANDNOT.KC.33, 



CALUJ/BAKUP.PC 

;1 * 

EALU STATE, 

RCR03 D.OR.PACK.FP, 

DT/WORD, SS? 



BEN/INTERRUPT, J/INTIO 



; WRITE FAULT ENTRY POINT 

:SAVE START-OF-ITERATION DSTADR 



;READ FAULT ENTRY POINT 

:SAV£ START-OF-ITERATION SRCADR 
;SET FAULT FLAG (IN SD) , GET COUNT-4 



; BACKWARDS MOVE INTERRUPT ENTRY 
CURRENT COUNT MINUS 4 IN RCCT23 
(MINUS 1 IF MOVTC OR MOVTUC) 

:IR <1> 

:GET TRUE COUNT TO STORE IN RO 



: COMMON ENTRY FOR REGISTER PACKING 

rPUT LOOP COUNT IN D HIGH, 

:SS = FAULT FLG, CLR EALU.N & SC 



CONSTRAINT BLOCK FOR CALL 

SAVE LOOPCOUNT IN R0<31:16> 

;CLEAR STATE <1 :0> SO IT CAN BE 
; OR' D WITH PC DELTA VIA THE 
;BMUX USING THE PACK. FLOAT LEG. 
;8AKUP.PC RETURNS PC DELTA IN D 



;FETCH, EFFECTIVELY, STATE <7:2> 
: COMBINE PC DELTA + STATE INTO 
;R0<15:0> AND CHK FAULT OR INT 

rSIGN SRC(SS) 
INTERRUPT - SEE WHICH KIND 



*********************************************** 

* Patch no. 030, PCS 00F4 trapped to WCS 1162 * 

*********************************************** 



;*1*1 

J/FPD.RTN 



;FAULT - TAKE THE EXCEPTION. 



ZZ-ESOAA-124.0 ; CHAR .MIC [600, 12043 



; P1U124.MCR 600.12043 
; CHAR .MIC C600. 12043 



J 16 

Character string 14-Jan-82 



Fiche 2 Frame J16 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE. WCS124 
Character string : M0VC3/5. MOVTC, MOVTUC FPD 

15649 ;MOVC/MOVTC/MOVTUC RESTART CODE - COME HERE FROM IRD IF FPD SET. 
15650 

1 5651 ; ; 

15652 48: 

15653 MOVCRESTART: 



Sequence 410 



Page 409 



U 0048, 0800,003C.0180,F880,1408.6A12 

U 0A12, 0817. 8014. 6180, F801, 1684, 4A14 

U OAK. 0858,0038.91 EO. F 800, 0000, 0A1 5 

U 0A15, 0803, 763C ,8587, 3C00, 0010,0606 

U 06D6, 0OOO.,O03C.35E0,F800,0084,46B6 

U 06D7, 0018.0034.0DEO.FA18.0082.0772 

U 06DE, 0800. 003C,C1F8,3E10, 0000, 032E 

U 06DF. 0800, 003C.C1F8,3E10, 0000, 032A 



15654 

15655 

15656 

15657 

15658 

15659 

15660 

15661 

15662 

15663 

15664 

15665 

15666 

15667 

15668 

15669 

15670 

15671 =0110 

15672 

15673 

15674 

15675 

15676 

15677 

15678 

15679 

15680 

15681 

15682 

15683 

15684 

15685 



LARACR03, 
D Dv, 

STATE AMX.EXP 



PC6VA D.OXTCBYTE3+PC, D D.SWAP, 
STATE STATE .ANDN0T.KC.F3, 
SC_STATE.ANDN0T.KC.F3 



Q_D, DJCC.1F0O3. RIGHT 



IDCFPDA3 D, D Q.0XTCWORD3, 
SS08SD 0, CLR.UBCC, 
ST&TE7-5? 



SC SC.ANONOT.ICC.503, Q D, 
J/MOVCFLP 

-01 i 1 

SC RCR33.AND.KC.33, Q D, 
J/MOVCRLP 



; 1 1 1 

D RCR23, IDCT03 D, Q 0. 
J7M0VTCFWD 



; 1 1 1 1 

D RCR2J, IDCT03 D, Q 0, 
J7MOVTCBKWD 



RO CONTAINS STATE + PC DELTA 

+ LOOPCOUNT BYTE-SWAPPED 
RESTORE STATE 



UPDATE PC AND UNSWAP LOOP COUNT 
STATE BITS <3:0> NOT OF INTEREST 
SC GETS FLAG BITS FOR FWD MOVE 



SAVE COUNT, GET FAULT VECTOR 



ISOLATE LOOP CT IN WD, SET VECTOR 
CLEAR FAULT FLAG AND SET Z ON CT 
TEST MOV VS MOVT AND DIRECTION 

STATE7-4 

FWD MOVC - SET SC TO FILL FLAG 



;8KWD MOVC - SC=DEST ADDR<1 :0> 



;FWD MOVTC/TUC - GET FILL/ESC. 
.-SAVE COUNT AND RE-ENTER LOOP 



;8KWD MOVTC - GET FILL. 
.-SAVE COUNT AND RE-ENTER LOOP 



K 16 
ZZ-ESOAA-124.0 ; CHAR .MIC C600J204D Character string 14-Jan-82 Fiche 2 Frame K16 Seguence 411 

; P1W124.MCR 600.12043 MICR02 11.(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 

; CHAR .MIC [600. 1204.1 Character string : SKPC, LOCC 



410 



15686 
15687 
15688 
15689 
15690 
15691 
15692 
15693 
15694 
15695 
15696 
15697 
15698 
15699 
15700 
15701 
15702 
15703 
15704 
15705 
15706 
15707 
15708 
15709 
15710 
15711 
15712 
15713 
15714 
15715 
15716 
15717 



TOC " Character string 
SKPC TIL UNEQUAL; LOCC TJL EQUAL 



: SKPC, LOCC 



ALGORITHM: 

THE SOURCE IS COMPARED WITH THE MASK CHARACTER TIL FOUND/NOT FOUND, 
DEPENDING ON THE OP-CODE. THIS SEARCH IS CONDUCTED BY BYTES TIL A 
LONGWORD BOUNDARY IS REACHED, AT WHICH TIME IT IS CONTINUED AS 
LONGWORDS TIL < 4 BYTES REMAIN TO BE SEARCHED, WHEN IT REVERTS 
TO BYTE-WISE SEARCH AGAIN. 



INPUTS: 

Q 

D 



CHARACTER FOR THE COMPARISON (1ST OPERAND) 
NUMBER OF BYTES TO COMPARE (2ND OPERAND) 



REGISTER USAGE: 



RO 



R1 
Q 
RC 2 



BYTE 1-0 = SnC LEN 

BYTE 2 = "C DELTA FOR FPD 

EYTE 3 = COMP CHAR FOR FPD 

SRC ADDR 

LENGTH 

COMPARE CHAR 



OUTPUTS: 

RO NUMBER OF BYTES REMAINING IF BYTE LOCATED OR IF NOT LOCATED 

R1 ADDRESS OF BYTE LOCATED + 1 OR END OF STRING + 1 

LABELS OF INTEREST: 

SKPRES1 RESUME EXECUTION AFTER RECOVERING FROM AN INTERRUPT/EXCEPTION 

SKP8YTES READ + COMPARE BY BYTES LOOP 

SKPALIGNED START OF LWD COMPARES. MAKE A LWD OF COMPARE CHAR 

SKPLONGLOOP READ + COMPARE BY LWDS LOOP 



L 16 
ZZ-ES0AA-124.0 ; CHAR .MIC [600. 12043 Character string 14-Jan-82 Fiche 2 Frame L16 Sequence 412 

; P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E. WCS124 Page 411 

; CHAR .MIC C600, 12043 Character string : SKPC. LOCC 



U 0488. 0019. 2035. 4980.F990. 0000. 047E 

U 04E8. 001 9. 2034, CI 80. FA80. 0000. 0288 

U 0288. 0001. 003D.3DF0.2E88. 0000. 09E4 

U 02F8. 0818.0035. C180.FA00. 0010. 0E16 

U 02F9. 0000.003C,0180.F800.0000.0A26 

U 02FA. 00O0,003C,O180,F800,0000,0A26 

U 02FB, 0000. 013C.O1E0.FA08, 0200, 060C 



RCCT23 O.AND.KC. FF3, 
CALL,J7ASPC 



RCR03.Q.AND.KC.FFFF3 



15718 488: 

15719 

15720 

15721 

15722 4E8: 

15723 

15724 

15725 =0****00 ; 

15726 RCR13 D, 

15727 Q JDCPSL3, 

15728 CAlL,J/CLRPSLCC 
15729 

15730 =1****00 ; 

15731 SKPRES1: 



15732 
15733 
15734 
15735 
15736 
15737 
15738 
15739 
15740 
15741 
15742 
15743 
15744 
15745 



CALUJ/SETFPD, 

D RCR03.AND.KC.FFFF3, 

CCK.UBCC 



J/SKPFPD 
j/SKPFPD 



Z?. 

Q D. 

VA RCR13 



;1ST AR6 IS COMPARE BYTE 
;GET 3RD AR6 



;2ND AR6 IS LENGTH 

-:RETURN40 + RETURN2 
;ARG 3 IS ADDR 
.•PREPARE TO CLEAR PSL CC 



•;RETURN2 NEEDED 
;FPD RESTART LOCATION 
;SET FPD BIT 

.•GUARANTEE IT'S A WORD FOR RESTART ALSO 
.-CHECK ON SRC LENGTH 



,-SKPC/LOCC FPD ADDR 
■SKPC/LOCC FPD ADDR 



; BRANCH ON LENGTH > 0. 

.-COPY LENGTH 

.-LOAD ADDR OF 1ST BYTE 



B 1 
C 1 
1 
1 
1 
1 

H 1 
I 1 
1 
1 
1 
1 

N 1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 

2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
A 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 



I -st ream decode 
I-stream decode 
I-stream decode 
I -st ream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode forks 
I-stream decode forks 
; -stream decode 
I-stream decode 
I-stream decode 
I-stream decode forks 
I-stream decode forks 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
I-stream decode 
ARITH.MIC 

Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
Integer arithmetic 
INDEX. MIC 



forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 



forks 
forks 
forks 



forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 
forks 



A-FORK 
A-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
B-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 
C-FORK 

Multip 

Multip 

Divide 

MULB2, 

MULB2, 

MULB2, 

MULB2, 

EMUL 

EMUL 

E/1UL 

DIV82, 

DIVB2, 

DIVB2, 

DIV82, 

EDIV 

EDIV 

EDIV 



for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
•or VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
for VAX 
Specifi 
Spec if i 
Specifi 
Specifi 
Specifi 
Spec i f i 



Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
instructions 
Instructions 
Instructions 
Instruct ions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
Instructions 
er Evaluation 
er Evaluation 
er Evaluation 
er Evaluation 
er Evaluation 
er Evaluation 



lication subroutine 
lication subroutine 
subroutine 
MUL83, MULW2. MULU3, 
MULB3, MULW2, MULU3, 
MULB3, MULW2. MULW3, 
MULB3, MULW2, MULW3. 



DIVB3, DIVW2, DIVW3, 

DIV83, DIVW2, DIVW3, 

DIV83, DIVW2, DIVU3, 

DIVB3, DIVW2, DIVW3, 



Subrouti 
Subrouti 
Subrouti 
Subrouti 
Subrouti 
Subrouti 



MULL2, M 
MULL2, M 
MULL2, M 
MULL2, fl 



DIVL2, D 

DIVL2, D 

DIVL2, D 

DIVL2, D 



J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 8 

C 8 



D 
E 

F 
G 



C 
D 

E 
F 
G 
H 
I 
J 
K 
L 
M 
N 



5 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 



8 
8 
8 
8 



H 8 

I 8 

J 8 

K 8 

L 8 

M 8 

N 8 

B 9 



9 
9 

9 
9 
9 
9 
9 
9 
9 
9 
9 
9 



B 10 
C 10 
D 10 



Index instruction 


Index instruction 


Index instruction : 


FLOAT. MIC 




F fc D 1 


loaf 


ing point : 


F K D 


loaf 


ng point : 


F fc D 1 


loaf 


ng point : 


F fc D 1 


loaf 


ng point : 


F fc D 1 


loaf 


ng point : 


F 6 D 1 


loaf 


'ng point : 


F & D 1 


loaf 


ing point : 


F fc D 1 


loaf 


ing point 


F fc D 1 


loaf 


ing point : 


F & D 1 


loaf 


ing point : 


F fc D 1 


loaf 


ing point : 


F fc D 1 


loaf 


ing point : 


f e D 1 


loaf 


ing point : 


F fc D 1 


: loaf 


ing point : 


F & D 1 


loaf 


ing point : 


F fc D 1 


loaf 


ing point : 


F fc D 1 


: loaf 


ing point : 


F fc D 1 


loaf 


ing point : 


F fc D 1 


loaf 


ing point : 


F fc D 1 


loat 


ing point : 


F fc D 1 


'loaf 


ing point : 


F fc D 1 


: loaf 


ing point : 


F fc D 1 


loaf 


ing point : 


F fc D 1 


loaf 


ing point . 


F fc D 1 


loaf 


ing point 


F fc D 1 


: loaf 


ing point : 


F fc D 1 


loat 


ing point : 


F fc D 1 


: loat 


ing point 


F fc D 1 


: loaf 


ing point : 


F fc D 1 


loat 


ing point : 


F fc D 1 


: loaf 


ing point : 


F fc D 1 


: loat 


ing point : 


F fc D 1 


loaf 


ing point 


F fc D 1 


: loaf 


ing point 


F fc D 1 


; loaf 


ing point : 


F fc D 


: loaf 


ing point : 


F fc D 1 


loat 


ing point : 


F fc D < 


Hoaf 


ing point : 


F fc D 1 


: loaf 


ing point : 


F fc D 1 


loaf 


ing point : 


F fc D 1 


floaf 


ing point : 


F fc D 1 


H oat- 


ing point : 


F fc D 1 


loaf 


ing point : 


F fc D 1 


: loaf 


ing point : 


F & D 1 


loaf 


ing point : 


F fc D 1 


loaf 


ing point : 


F fc D 1 


loaf 


ing point : 


F fc D 1 


; loaf 


ing point : 


F fc D 1 


; loaf 


ing point : 


F fc D 1 


; loaf 


ing point : 


F fc D 1 


loat 


ing point 


F fc D 1 


loaf 


ing point : 


F fc D 1 


; loaf 


ing point : 


F & D 1 


loaf 


ing point : 


F fc D 1 


loat 


ing point 


F £ D 1 


float 


ing point : 



INDEX 






INDEX 






INDEX 






CMPF 






CMPF 






ADDF. 


SUBF 




ADDF, 


SUBF 




ADDF, 


SUBF 




ADDF, 


SUBF 




ADDF, 


SUBF 




ADDF/SUBF ROUTINE 


ADDF/SUBF ROUTINE 


ADDF/SUBF ROUTINE 


ADDF/SUBF ROUTINE 


MULF 






MULF 






MULF 






DIVF 






DIVF 






DIVF 






CMPD 






CMPD 






UNTUCK DOUBLE 


OPERANDS 


IWACK D0JBI.E 


OPERANDS 


UNPACK DOUBLE 


OPERANDS 


UNPACK DOUBLE 


OPERANDS 


PACK DOUBLE RESUlT 


PACK DOUBLE RESULT 


ADDD, 


SUBD 




ADDD, 


SU3D 




ADDD, 


SUBD 




ADDD, 


SUBD 




ADDD, 


SUBD 




ADDD, 


SUBD 




ADDD, 


SUBC 




ADDD, 


SUBD 




ADDD, 


SUBD 




ADDD, 


SUBD 




ADDD, 


SUBD 




MULD 






DIVD 






DIVD 






DIVD 






DIVD 






DIVD 






UNPACK ONE DOUBLE OPERAND 


CVTBF, 


, CVTWF, 


CVTLF 


CVTBF ( 


, CVTWF, 


CVTLF 


CVTBD, 


. CVTWD, 


CV T LD 


CVTFD, 


. CVTDF 




CVTFD, 


, CVTDF 




CVTFB. 


, CVTFW, 


CVTFL, CVTRFL 


CVTDB, 


, CVTDW, 


CVTDL, CVTRDL 


CVTDB 


, CVTDU, 


CVTDL, CVTRDI. 



CONVERT FLOATING TO INTEGER 

CONVERT FLOATING TO INTEGER 

CONVERT FLOATING TO INTEGER 

CONVERT FL0A T ING TO INTEGER 
ACBF 



10 
10 
10 
10 
10 
10 
10 
10 
10 
10 

11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 

12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
£ 
& 
& 
& 
& 
& 
& 
fc 
& 
& 



D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

b 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

NIT2.MIC 
nitia 
nitia 
nitia 
nitia 
nitia 
ASPC.M 



Loa 
loa 
loa 
Loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 
loa 



ting 


poi 


nt : 


ting 


poi 


nt : 


ting 


poi 


nt : 


ting poi 


nt : 


ting po 


nt : 


ting poi 


nt : 


ting poi 


nt : 


ting poi 


nt : 


ting po 


nt : 


ting poi 


nt : 


ting 


poi 


nt : 


ting 


poi 


nt : 


ting poi 


nt : 


ting poi 


nt : 


ting poi 


nt : 


ting po 1 


nt : 


ting po- 


nt : 


ting 


po- 


nt 


ting 


PO' 


nt : 


ting po 1 


nt : 


ting 


po* 


nt : 


ting 


po^ 


nt : 


ting po- 


nt : 


ting po 1 


nt : 


ting po* 


int : 


ting 


po 


int 


•ting 


PC 


int : 


ting 


po- 


int : 


•ting 


DO' 


int : 


iting 


PO' 


int : 


•ting 


PO' 


int : 


ting 


po 


int 


•ting 


po 


int 


•ting 


po 


int : 


•ting 


po 


int 


•ting 


po 


int : 


•ting 


po 


int : 


•ting 


po 


int 


•ting 


po 


int 



ize microcode 
ize microcode 
ize microcode 
ize microcode 
ize microcode 

r 

-stream decode forks 
-stream decode forks 
-stream decode forks 
-stream decode forks 
-stream decode forks 
IELD.MIC 

eld instructions 
eld instructions 
eld instructions 
eld instructions 
eld instructions 
eld instructions 
eld instructions 
eld instructions 



AC8F 

ACBF 

AC8F 

ACBF 

AC8D 

AC8D 

AC8D 

MULD 

MULD 

MULD 

MULD 

MULD 

EM0DF 

EM0DF 

EMODF 

EMODF 

EMODF 

EMODF 

EMODD 

EMODD 

EMODD 

POLYF 

POLYF 

POLYF 

POLYF 

POLYF 

POLYF 

POLYF 

POLYF 

POL YD 

POL YD 

POL YD 

POL YD 

POL YD 

POL YD 

POL YD 

POL YD 

POL YD 

POL YD 

INITIALIZE 
INITIALIZE 
INITIALIZE 
INITIALIZE 
INITIALIZE 



MACHINE 
MACHINE 
MACHINE 
MACHINE 
MACHINE 



ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 



Address Specifier Evaluation 
Address Specifier Evaluation 
Address Specifier Evaluation 
Address Specifier Evaluation 
Address Specifier Evaluation 

FrS, FFC, CMPV, CMPZV, EXTV, EXTZV 
FFS, FFC, CMPV, CMPZV, EXTV, EXTZV 
FFS, FFC, CMPV, CMPZV, EXTV, EXTZV 
FFS, FFC, CMPV, CMPZV. EXTV, EXTZV 
FFS, FFC. G1PV. CMPZV, EXTV, EXTZV 
INSV 
INSV 
1NSJ 



14 
14 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 



Field ins 

Field ins 

Field ins 

CHAft.MJ 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Character 



true t ions 
true t ions 
true t ions 

string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
str'ng 
string 
string 
string 
string 
string 
string 
string 
string 



INSV 
INSV 
INSV 

Utilities 
Utilities 
Utilities 
M0VC3, M0VC5 
M0VC3/5 INITIALIZATION 
MOVC3/5 INITIALIZATION 
M0VC3/5 INITIALIZATION 
MOVC3/5 INITIALIZATION 
MOVC3/5 MAIN LOOPS 
MOVC3/5 MAIN LOOPS 
M0VC3/5 MAIN LOOPS 
MOVC3/5 MAIN LOOPS 
M0VC3/5 MAIN LOOPS 
M0VC3/5 MAIN LOOPS 
M0VC3/5 MAIN LOOPS 
M0VC3/5 BACKWARDS MOVE 
MOVC3/5 BACKWARDS MOVE 
MOVC3/5 BACKWARDS MOVE 
M0VC3/5, MOVTC, MOVTUC 
MOVC3/5, MOVTC, MOVTUC 
SKPC, LOCC 
SKPC, LOCC 



FPD 
FPD 



